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1. ABSTRACT 

Part 2 of th« PDP-15 EAE Diagnostic verifies only correct operation of the EAE 
multiply and divide instructions. Part 2 is written in two sections: Section 1 
checks EAE Instructions against predetermined results. This ranges from setup 
operation, through multiply and divide instructions executed back to back; 
Section 2 is a random-number check of the signed multiply and signed divide 
instructions. 

Hardware malfunctions in Section 1 result inan error holt. Hardware mal- 
functions in Section 2 result in an error message on the teleprinter. 

2. REQUIREMENTS 
Storoge 

The program when loaded occupies locations 20 to 7500 . 

Subprograms and/or Subroutines 

Teletype Output Package 

Signed Multiply Subroutine (modified) 

Signed Divide Subroutine (modified) 

Equipmen t 

Minimum configuration PDP-15 with EAE option installed 

3. USAGE 

3. 1 Loading 

a . Set Bank Mode SW on 1 

b. Set address SWto 1771210 

c. Press reset, press READ-IN. 

3.2 Calling Sequence 

The program halts after loading. 

Set address switches to: 2^ Section 1 (Constants) 

20] Section 2 (Random numbers) 
203 Switch Setting typeout. 

Press Reset, press START. 

If 2jEJ3 is chosen, program halts at 6622 after typeout. 
To continue, set 200, or 201 in address switches 
Press reset, press START. 
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3.3 Switch Settings 

AC Switches = or Down 

With all AC switches down, the program results in the following: 

a. Hardware malfunctions detected in Section 1 result in an error halt. 

b. Hardware malfunctions detected in Section 2 result in an error typeout. 

c. At the completion of the error typeout, the processor halts. 

d. The program completes whichever section of test it was started in, sequence 
from each subtest of the section to the next , without halting. 

AC Switches 1 or Up 

SW Operation Description 

Delete error typeouts The program will not type out error 

messages, but will ring bell on error. 

1 Halt after EAE operation The processor halts after each EAE oper- 

ation is initiated and its results are 
verified. (Note: Press CONTINUE to 
proceed.) 

2 Repeat EAE operation The program repeats the last EAE operation, 
(Scope Loop) If SW2 is set during an error typeout or 

halt, the program repeats the operation 
that caused the error. (Note: SWl is test- 
ed before SW2.) 

3 Halt after EAE sequence The processor halts after each sequence of 

testing an EAE operation . 

4 Repeat EAE sequence The program repeats the last sequence of 

testing an EAE operation; i.e., the pro- 
gram repeats the EAE AC sign test and 
does not proceed to multiply/divide test. 
(Note: The program tests SW3 before SW4.) 

5 Cycle all sections At the completion of 77 passes through the 

Set-Up Test, the program proceeds to the 
Random Multiply and Divide Test. At the 
completion of passes through Random Test 
the program repeats the Set-Up Test. 

6 Print "OK" after each pass when SW5 =1 



3.4 Start-Up and/or Entry 

Start up. Section 1 



Set AC switches = 000000 
Set address = 0200 
Press Reset 
Press START 
Start up. Section 2 
Set AC switch = 000000 
Set address = 0201 
Press Reset 
Press START 



3.5 Errors in Usoge 



Hardware malfunctions detected in Section 1 will result in an error halt. Refer 
to the I isting using the address in the memory register to identify the error . 

Hardware malfunctions detected in Section 2 will result in an error typeout on the 
teleprinter, and a processor halt. 

a. Error typeouts are in standard format and include the following 
information . 

b. Type of failure, multiply or divide. 

c. Initial problem set-up, contents of the AC, MQ, and the divisor 
and multiplicand. 

d. The results of the instruction, i.e., if divide, the quotient and 
remainder; if multiply, the high and low order product. A 
comparison of the results (software vs hardware). 

e. A printout of the ratio of failure, based on 100 octal iterations. 

f. If the ratio is small, it is recommended that CONTINUE be de- 
pressed to find a setup that produces a higher failure ratio. 

g. Then set the address register equal to the contents of the AC and 
depress START. This will generate a simulated printout of the EAE 
failure. After the printout the program will go into a scope loop, 
executing the instruction that failed. 
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3.5 (Continued) 

The abbreviations used by the header are as follows: 

Abbreviation Meaning 

C(L) The information under this header is the contents of LINK. 

C(AC) The information under this header is the contents of AC. 

C(MQ) The information under this header is the contents of MQ. 

C(SC) The information under this header is the contents of SHIFT 

COUNT. 

(DIVISOR) The information under this header is the contents of MB- 

not sign corrected. 

(MULTIPLICAND) The information under this header is the contents of MB- 
not sign corrected. 



Error Typeout Examples: 
a. Sign Multiply 

MULS FAILED 



MULTIPLIER 



705722 
HIGH ORDER PRODUCT 
SOFTWARE 762343 

HARDWARE 762443 

OUT OF 100 CHECKS BAD 1 
6443XX (XX = SHIFT COUNT) 



MULTIPLICAND 

167372 
LOW ORDER PRODUCT 
133015 
762343 



b. Sign Divfde 
DiVS 



C(DIVISOR) 
235012 



C(AC) 
223506 



C(MQ) 
304176 



QUOTIENT 

SOFTWARE 741320 

HARDWARE 74132P 

OUT OF 100 CHECKS BAD 1 
6443XX (XX = SHIFT COUNT) 

c. Example of Multiply Simulation 

MULS FAILED 



REMAINDER 

146136 
146135 



MULTIPLIER (AC) 

235037 
HIGH ORDER PRODUa 



MULTIPLICAND 

534247 
LOW ORDER PRODUCT 
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SOFTWARE 754134 257305 

HARDWARE 754134 57305 

OUT OF 100 CHECK BAD 100 
657110 (10 SHIFTS) 

C(L) C(AC) C(MQ) C(SC) 

235037 70 (2's compliment of 10) 

121654 116417 71 

172602 47207 72 

217155 23503 73 

231342 411641 74 

236435 204720 75 

117216 502350 76 

47507 241164 77 

754134 257305 

d. Example of Divide Simulation 

DIVS FAILED C(DIVISOR) C(AC) C(MQ) 

317121 216663 J047735 

QUOTIENT REMAINDER LINK 

SOFTWARE 477353 715731 1 

HARDWARE 477353 715731 J0t 

OUT OF 1JE(0 CHECK BAD 100 

6443)2(3 

(Program Halts. Set Address Register equal to AC then START. (3.5.g)) 

(Print out of simulated Divide) 

C(L) C(AC) C(MQ) C(Sq 

ja 216663 047735 j375 Initial AC & MQ after 

complenting 

677542 iZl47735 075 1st subtract 

1 577304 117672 076 1st shift 

1 1 16425 1 17672 076 2nd subtract-overflow . 

caused 

235052 237565 077 2nd shift 

715731 237565 077 3rd subtract 

715731 477353 077 ..... .3rd shift-overflow recog- 

nized. 

1 715731 477353 p7 Last cycle adjust. 

Recovery from such Errors 

In Section 1, a malfunction causes o processor halt. In Section 2, a mal- 
function will generate on error typeout, then halt the processor. 

One of the following operations may be necessary if more information about the 
-5- 



3.6 (Continued) 

failure is needed to repair the malfunction. 

a. Repeat the exact operation that detected the failure (possibly a scope loop). 

b. Continue normally in the test to generate more information about the failure. 

c. Repeat the sequence of operation, or data patterns that detected the failure. 

d. Produce a simulation printout of failing multiply or divide instruction. 

AC switch control is built into the program to allow for any of these operations 
assuming the processor has halted after an error. 
These operations may be accomplished as follows: 

a . Repeat same operation 

Set AC switch 2 up or to a 1 

Press CONTINUE 

Not that AC switch si lows deletion of error typeout for a scope loop. 

b. Continue normally 
Press CONTINUE 

c. Repeat Sequence 

Set AC switch 4 up to a 1 
Press CONTINUE 

d. Simulation Printout 

Set Address Switch = C(AC) 

(At completion of Printout the program goes to an automatic scope loop.) 

4. PROGRAM DESCRIPTION 

4.1 General 

The PDP-15 EAE Diagnostic part 2 verifies correct operation of the Multiply and 
Divide EAE Instruction. Part 2 itself is written in two logical sections as follows: 

Section 1 - Set up test using fixed number 

Verifies correct operation of all EAE Multiply and Divide instructions with fixed 
numbers . 



4 . 1 (Continued) 

Section 2 - Randofn Number 

Verifies correct operation of signed Multiply and Signed Divide instruction with 
random numbers. 

The above sections are to be run sequentially; that is. Section 1 must run before 
Section 2. 

4.2 Test Description 

4.2.1 Section 1 Set-Up Tes t - The Set-Up Test incrementally verifies correct operation 

of the multiply and divide instruction. 

a. "ADVP" Checks that the memory location following the multiply and/or 
divide instruction is not modified by the execution of the instruction and that 
the program address counter is properly incremented during the exectuion of 
the instruction. 

b. "NEAE" Set up check - Checks the set-up of all EAE signed, unsigned, in- 
teger and fraction, multiply and divide instructions. These instructions are 
executed with a shift count of zero. 

c. "SHCT" Shift Counter Test- Executes the Multiply instruction sequentially 
starting at a shift count of 1 and incrementing it up to a shift count of 22. 

d. "STMUL" Sign multiply and divide test - Test all signed multiply and divide 
instructions. 

e. "MULTST" Multiply and Divide Test - This test using worse-case number 
patterns acts as both a EAE and Adder Test. 

f . "MSPEED" Speed Multiply and Divide - This test is in three operations: 
(1) a sequence of multiply instnjctions are executed back to back, (2) then 
a sequence of divide instructions are executed, (3) followed by a sequence 
of MUL, DIV, MUL, and DIV executed back to back. 



4.2.2 Section 2 Random Data Multiply and Divide Test - The Random Data Test verifies 

that the EAE will multiply and divide random numbers at shift counts 1 through 
maximum (22 for multiply, 23 for divide) and checks that the LINK is set on 



4.2.2 (Continued) 

divide overflow. 

The sequence of testing is as fol lows: 

(a) Test the Multiply 

(1) Generate a random number 

(2) Do a software divide 

(3) Do a software divide 

(4) Compare the results of both operations 

(5) LOOP BACK TO 1 TILL DONE 

4.2.3 Extended Reliability Test - 

a. If it is desired to run an extended reliability test on the EAE and the 
computer is to be left unattended, the halts in Part II Section 2 should 
be changed. 

MULCT-2 From a Halt too NOP (6254) 

TIMTEX-2 From a Halt to a NOP (6304) 

b. There is also a counter that counts pass completes "CTCMPT". This 
counter is cleared when starting the program or when restarting at 
"FIRST" oc FIRST + 3 (CTCMPT = 7146). 
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EAE-I I 



00200 




00?00 


606624 


00201 


606627 


00202 


607047 


00203 


74C1000 


00204 


147176 


00205 


147177 


00206 


207176 


00207 


673101 


00210 


740040 


00211 


741000 


00212 


740040 


00213 


447176 


00214 


600206 


00215 


147176 


00216 


147177 


00217 


207176 


00220 


653122 


00221 


740040 


00222 


741000 


00223 


740040 


00224 


447177 


00225 


600217 


00226 


147176 


00227 


147177 


00230 


207176 


00231 


653122 


00232 


007177 


00233 


741000 


00234 


740040 


00235 


207177 


00236 


547176 


00237 


741000 


00240 


740040 


00241 


447176 


00242 


740000 


00243 


447177 


00244 


600230 


00245 


740000 



.TITLE EAE-II 
/EAE Part II MULTIPLY aND DIVIOE-FOR PDP 15 
/ 

/START aT 200 FOR SECTION ONE (CONSTANTS) 
/STAfvT AT 201 FOR SECTION TWO (RANDOM DATa) 
/START AT 203 FOR SWITCH SETTING TVPEOUTS, 
/ 

.ABS 

.LOC 2?i0 

JMP RUN+l 

JMP RUN+4 

JMP FIRST 
ADVP NOP 

nZM STEMA# /CHECK FOR P HNCREMENT 

OZM STEMB# /WITH NO SHIFT 

LAC STEMA 



MUL -21 

HLT 

SKp 

HLT 

ISi STEMA 

JMP .-6 

dzm stema 
DZM stemb 

LAC STEMA 

MUL 

HLT 

SKP 

HLT 

IS2 STEMB 

JMP .-6 

DZH STEMA 

DZM STEMB 

LAC STEMA 

MUL 

STEMB 

SKP 

HLT 

LAC STEMB 

SAO STEMA 

SKP 

HLT 

ISZ 

NOP 

ISZ 

JMP .- 

NOP 

.EJECT 



/P NOT INCREMENTED (105) 
/P OVER INCREMENTED (107) 



/CHECK FOR P INCREMENT 
/WITH 22 SHIFT COUNTS 



/P NOT INCREMENTER (116) 
/P OVER INCREMENTED (120) 



/IS MEMORY RESTORED 
/CORRECTLY 



/P OVER INCREMENTER (132) 



STEMA 

STEMB 
.-14 



/VARIABLE NOT RESTORED CORRECT (136) 



/EXIT 
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FAF-I I 



H0?46 


104162 


00?47 


104157 


00?5/ 


744002 


«0?5l 


?07205 


0025? 


65?000 


00253 


207206 


00254 


644100 


00255 


f100001 


00256 


047156 


00257 


641002 


00260 


047157 


00261 


547207 


00262 


741000 


00263 


740040 


00264 


207156 


00265 


547210 


00266 


741000 


00267 


740040 


00270 


104130 


00271 


740000 


00272 


104157 


00273 


207205 


00274 


652000 


00275 


207206 


00276 


644100 


00277 


777776 


00300 


047156 


00301 


641002 


00302 


047157 


00303 


547205 


00304 


741000 


00305 


740040 


00306 


207156 


00307 


547206 


00310 


741000 


00311 


740040 


00312 


104130 


00313 


104157 


00314 


740000 


00315 


207207 


00316 


652000 


00317 


207206 


00320 


644100 


00321 


000001 


00322 


047156 


00323 


641002 



''BASIC EAE INSTRUCTION 
NEAE JMS L00P4 
L00P2 



JMS 
STL 
LAC 
LMq 
LAC 
EAE 



(070707) 



(252525) 

4100 
000001 
DAC piAC* 
LACq 

DAC FIMQ# 
SAD (707070 
SKP 
HLT 

LAC 
SAD 
SKP 
HLT 
JMS 
NOP 
JMS 
LAC 
LMQ 
LAC 
EAE 



/NO SHIFTS /NO GSM 
/HLT ADDRESS 



/SPECIAL INST 644100 



/BAD 
riAC 
(5P5252 



MO, GOOO=707070 



HLOOPS 



/BAD AC, G00D = C525252 



(160) 



(164) 



L00P2 
(070707) 

(252525) 

4100 



777776 
DAC FIAC 
LACq 
DAC FIMQ 



/SPECIAL INST 644100 



SAO 
SKP 
HLT 
LAC 
SAD 
SKP 
HLT 
JMS 
JMS 
NOP 
LAC 
LMQ 
LAC 
EAE 



(070707) 

/BAD 
FIAC 
(252525) 



MO, GOOD=070707 



HLOOPS 
L00P2 



/BAD AC, 0000=252525 



(202) 



(206) 



(707070) 

(252525) 

4100 



000001 
DAC FIAC 
LACQ 
.EJECT 



/SPECIAL INST 644100 
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fAE-II 



PI0324 


047157 


PI0325 


547207 


00326 


741000 


e)0327 


■'4C^040 


00330 


207156 


00331 


5472C56 


0033? 


741000 


00333 


740040 


00331 


104130 


00335 


104157 


00336 


740000 


00337 


207207 


00340 


652000 


00341 


207210 


00342 


644100 


00343 


777776 


00344 


047156 


00345 


641002 


00346 


047157 


00347 


547207 


00350 


741000 


00351 


740040 


00352 


207156 


00353 


547210 


00354 


741000 


00355 


740040 


00356 


104130 


00357 


104157 



DAC 

SAn 

SKP 
HLT 
LAC 
SAD 
SKP 
HLT 
JMS 
JMS 
NOP 
LAC 
LMO 
LAC 
EAE 
777 
OAC 
LAC 
DAC 
SAD 
SKP 
HLT 
LAC 
SAD 
SKP 
HLT 
JMS 
JMS 
.EJ 



FIMQ 
(707070) 

/BAD HO, GOOD=707070 
FIAC 
(252525) 



/BAD AC. G00D=252525 



(224) 



(230) 



/SPECIAL INST 644100 



HLOOPS 
LOOP2 

(707070) 

(525252) 

4100 
776 

FIAC 


FIMQ 

(707070) 



/BAD MO, GOOD=707070 
FIAC 
(52525?) 



/BAD AC. G00D=525252 



(246) 



(252) 



HLOOPS 
L00P2 
ECT 
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EAP-II 



00360 
00361 
0036? 
00363 
00364 
00365 
00366 
00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 
00421 
00422 
00423 



74PI000 
207205 
65?000 
207206 
654100 
000001 
047156 
641002 
047157 
547211 
741000 
740040 
207156 
547206 
741000 
740040 
104130 
104157 
740000 
207205 
652000 
207206 
654100 
777776 
047156 
641002 
047157 
547211 
741000 
740040 
207156 
547206 
741000 
740040 
104130 
104157 



(070707) 



MEAB NOP 
LAC 
LMO 

LAC (252525) 
EAE 14100 
000001 
DAC plAC 
LACq 

DAC FIMQ 
SAO (0PI0000 
SKP 
HLT 
LAC 
SAO 
SKP 
HLT 
JMS 
JMS 
NOP 
LAC 
LMO 
LAC 
EAE 



/SPECIAL INST 654100 



/BAD 
FUC 
(252525) 



MO, GOOD=000000 



HLOOPS 
L00P2 

(070707) 



/BAD AC, G000r252525 



(270) 



(274) 



(252525) 
14100 

777776 

DAC riAC 

LACQ 

DAC FIMQ 

SAO (000000 

SKP 

HLT 

LAC 

SAO 

SKP 

HLT 

JMS 

JMS 



/SPECIAL INST 654100 



/BAD 
FUC 
(252525) 



MO, 6000:000000 



HLOOPS 
L00P2 



/BAD AC, G00Ds252525 



(312) 



(316) 



.EJECT 
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EAF-II 



?I0424 


74C1000 


PI042'^ 


207207 


110426 


fi5?«PI0 


00427 


654100 


00430 


H00001 


00431 


C147156 


00432 


641002 


00433 


047157 


00434 


547211 


00435 


741000 


00436 


740040 


00437 


207156 


00440 


547207 


00441 


741000 


00442 


740040 


00443 


104130 


00444 


104157 


00445 


740000 


00446 


207207 


00447 


652000 


00450 


207210 


00451 


654100 


00452 


777776 


00453 


047156 


00454 


641002 


00455 


047157 


00456 


547211 


00457 


741000 


00460 


740040 


00461 


207156 


00462 


547210 


00463 


741000 


00464 


740040 


00465 


104130 


00466 


104157 



/SPECIAL INST 654100 



NOP 

LAC (707070) 

LMQ 

EAF 1410PI 

000001 

DAC FIAC 

LACQ 

DAC FIMQ 

SAD (000000 

SKP 

HLT /BAD MO, GOOO=000000 

LAC FIAC 

SAD (707070) 

SKP 

HLT /BAD AC, GOOD=707070 

JMS HLOOPS 

JMS L00P2 

NOP 

LAC (707070) 

LMO 

LAC (525252) 

EAE 14100 

777776 

DAC FIAC 

LACQ 

DAC FIMQ 

SAO (000000) 

SKP 

HLT /BAD MO 

LAC FIAC 

SAD (525252) 

SKP 

HLT /BAD AC, G00D=525252 

JMS HLOOPS 

JMS L00P2 

.EJECT 



<333) 



(337) 



/SPECIAL INST 654100 



0000=000000 



(355) 



(361) 
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00467 


740000 


00470 


207205 


00471 


65?000 


0047? 


207206 


00473 


673100 


00474 


000001 


00475 


047156 


00476 


641002 


00477 


047157 


00500 


547206 


00501 


741000 


0050? 


740040 


00503 


207156 


00504 


547211 


00505 


741000 


00506 


740040 


00507 


104130 


00510 


104157 


00511 


740000 


00512 


207205 


00513 


652000 


00514 


207206 


00515 


673100 


00516 


777776 


00517 


047156 


00520 


641002 


00521 


047157 


00522 


547206 


00523 


741000 


00524 


740040 


00525 


207156 


»8526 


547211 


00527 


741000 


00530 


740040 


00531 


104130 


00532 


104157 


00533 


740000 


00534 


207207 


00535 


652000 


00536 


207210 


00537 


673100 


00540 


000001 


00541 


047156 


00542 


641002 


00543 


047157 


00544 


547210 


00545 


741000 


00546 


740040 


00547 


207156 


00550 


547211 


00551 


741000 


00552 


740040 


00553 


104130 



NMUL 



NOP 
LAC 
LMO 
LAC 
MUl 



(070707) 

(2'52525) 

-22 



000001 
DAC 
LACQ 
DAC FIMQ 



FjAC 



SAD 

SKP 
HLT 

LAC 
SAO 
SKP 
HLT 
JMS 
JMS 
NOP 
LAC 
LMO 
LAC 
MUL 



/THE 
(2'52525) 



EAE 



/MULTIPLY INSTRUCTIONS WlTn NO SHIFTS 
/CHECKING SETUP, THE FIRST ONE IS 
/AC MQ AC MQ 
/(252525)X('<^0(^k'l)=''li^l^'''k5('2'^252'^ 



/DURjfgG SETUP THE mQ iS SET Tq SOmE^ VAlUF 
INSTRUCTION DOES aN AC EUOaL TO MO TRaNSFER 



/BAD 
FIAC 
(000000) 



MO, G000 = 5i52525 



HLOOPS 
LOOP? 

(070707) 

(252525) 
-22 



/BAD AC, 0000:000000 



(377) 



(403) 



777776 

DAC FIAC 
LACQ 
DAC FIMQ 



SAO 
SKP 
HLT 
LAC 
SAD 
SKP 
HLT 
JMS 
JMS 
NOP 
LAC 
LMO 
LAC 
MUL 



(252525) 

/BAD MO, 
FIAC 
(0PI0000) 



0000=252525 (421) 



HLOOPS 
L00P2 

(707070) 

(52525?) 
-22 



/BAD AC, 6000:000000 (425) 



000001 
DAC FIAC 
LACQ 
OAC FIMQ 



SAO 
SKP 
HLT 
LAC 
SAD 
SKP 
HLT 
JMS 



(525252) 

/BAD 
FIAC 

(0110000 



MO, 0000=525252 (443) 



HLOOPS 



/BAD AC, 0000=000000 (447) 



.EJECT 
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00554 


104157 


00555 


740000 


00556 


207207 


00557 


652000 


00560 


207210 


00561 


673100 


00562 


777776 


00563 


047156 


00564 


641002 


00565 


047157 


00566 


547210 


00567 


741000 


00570 


740040 


00571 


207156 


00572 


547211 


00573 


741000 


00574 


740040 


00575 


104130 


00576 


104157 



JMS 
NOP 
LAC 
LMO 
LAC 
MUL 



L00P2 

(707070) 

(525252) 
-22 



777776 
OAC FI4C 
LACO 
OAC FIMQ 



SAD 
SKP 
HLT 
LAC 
SAD 
SKP 
HLT 
JMS 
JMS 



(525252) 

/BAD 
FIAC 
(000000 



MO, G00D=525252 



/BAD AC, GOOD=000000 



HLOOPS 
L00P2 



(465 ) 



(471) 



.EJECT 
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FAF- 


I I 




pia-;?? 


74P!l^00 




iASIfyVII^ 


207205 




H0601 


652^00 




0060? 


207206 




B0603 


677100 




00604 


00!^001 




00605 


047156 




00606 


641002 




00607 


047157 




00610 


547206 




00611 


741000 




00612 


740040 




00613 


207156 




00614 


547211 




00615 


741000 




00616 


740040 




00617 


104130 




00620 


104157 




00621 


740000 




00622 


207205 




00623 


652000 




00624 


207206 




00625 


677100 




00626 


777776 




00627 


047156 




00630 


641002 




00631 


047157 




0063? 


547206 




00633 


741000 




00634 


740040 



NMULS NOP 

LAC <070707) /SIGNED MULTIPLY NO SHIFTS 

LMO 

LAC (252525) 

MULS -22 

000001 

DAC fTlAC 

LACq 

OAC FIMQ 

SAD (252525) 

SKP 

HLT /BAD MO, G00D=252525 (507) 

LAC FUG 

SAD (000000) 

SKP 

HLT /BAD AC, GOODS000000 (513) 

JMS HLOOPS 

JMS LOOP? 

NOP 

LAC (070707) 

LMO 

LAC (252525) 

MULS -22 

777776 

DAC riAC 

LACQ 

DAC FIMQ 

SAD (252525) 

SKP 

HLT /BAD MQ, G00Ds252525 (531) 

.EJECT 



PAGE 



EAF-II 



00635 207156 
C10536 547211 
00637 741000 



00640 
00641 
00642 
00643 
00644 
00645 
00646 
00647 
00650 
00651 
00652 
00653 
00654 
00655 
00656 
00657 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 
00670 
00671 
0067? 
00673 
00674 
00675 
00676 
00677 
00700 
00701 
00702 
00703 
00704 
00705 
00706 



740040 
104130 
104157 
740000 
207207 
652000 
207210 
677100 
000001 
047156 
641002 
047157 
547210 
741000 
740040 
207156 
547212 
741000 
740040 
104130 
104157 
740000 
207207 
652000 
207210 
677100 
777776 
047156 
641002 
047157 
547210 
741000 
740040 
207156 
547212 
741000 
740040 
104130 
104157 



LAC riAC 
SA[l (0Pi000(») 

SKP 



HLT 



<53S) 



(553) 



/BAD AC, GOOD=000000 
JMS HLOOPS 
JMS LUaP2 
NOP 

LAC (707070) 
LMQ 

LAC (525252 
MULS -22 
000001 
DAC riAC 
LACq 

DAC FIMQ 
SAO (525252) 
SKP 

HLT /BAD MO, G00D=525252 
LAC FIAC 
SAD (777777) 
SKP 

HLT /BAD AC, G00D=777777 (557) 
JMS HLOOPS 
JMS L00P2 
NOP 

LAC (707070) 
LMQ 

LAC (525252) 
MULS -22 
777776 
DAC FIAC 
LACQ 

DAC FIMQ 
SAD (525252) 
SKP 

HLT /BAD MO, G000=525252 (575) 
LAC FIAC 
SAD (777777) 
SKP 

HLT /BAD AC, G00D=777777 (601) 
JMS HLOOPS 
JMS L00P2 
.EJECT 



AGE IV. 


1 FAE-1 


!I 




00707 


740000 




007ll?l 


207205 




007ii 


652000 




00712 


207206 




00713 


66PI300 




00714 


000001 




00715 


047156 




00716 


641002 




00717 


047157 




00720 


547205 




00721 


741000 




00722 


740040 




00723 


207156 




00724 


547206 




00725 


741000 




00726 


740040 




00727 


104130 




00730 


104157 




00731 


740000 




00732 


740000 




00733 


207205 




00734 


652000 




00735 


207206 




00736 


660300 




00737 


777776 




00740 


047156 




00741 


641002 




00742 


047157 




00743 


547205 




00744 


741000 




00745 


740040 




00746 


207156 




00747 


547206 




00750 


741000 




00751 


740040 




00752 


104130 




00753 


104157 



NDIV NOP /DIVIDE INSTRUnTION NO SHIFTS 

LAC (070707) /THE EAE INSTRUCTIONS OOFS NOT 

/CHaNGF the AC OR THE MQ 
LMO 

LAC (252525) 
DIV -23 
000001 
OAC (TlAC 
LACq 

DAC FIMQ 
SAD (070707) 
SKP 

HLT /BAD MO, GOOD=070707 (617) 
LAC FIAC 
SAO (252525) 
SKP 

HLT /BAD AC, 0000=252525 (623) 
JMS HLOOPS 
JMS L0nP2 
NOP 
NOP 

LAC (070707 
LMO 

LAC (252525 
OIV -23 
777776 
DAC FIAC 
LACQ 

DAC FIMO 
SAD (070707) 
SKP 

HLT /BAD MQ, GOOOs070707 (642) 
LAC FIAC 
SAD (252525) 

SKP /BAD AC, G00D=252525 (646) 
HLT 

JMS HLOOPS 
JMS L00P2 
.EJECT 



AGE 11 


EAE- 


II 




00754 


74(^000 




00755 


207207 




00756 


652000 




00757 


207210 




00760 


660300 




00761 


000001 




00762 


047156 




00763 


641002 




00764 


047157 




00765 


547207 




00766 


741000 




00767 


740040 




00770 


207156 




00771 


547210 




0077? 


741000 




00773 


740040 




00774 


104130 




00775 


104157 




00776 


740000 




00777 


207207 




01000 


652000 




01001 


207210 




01002 


660300 




01003 


777776 




01004 


047156 




01005 


641002 




01006 


047157 




01007 


547207 




01010 


741000 




01011 


740040 




0101? 


207156 




01013 


547210 




01014 


741000 




01015 


740040 




01016 


104130 




01017 


104157 



NOP 






LAC (7^17070 






LMO 






LAC (525252 






DIV -23 






000001 






DAC FIAC 






LACQ 






DAC riMQ 






SAD (707070) 






SKP 






HUT /BAD 


MQ, 


GOOD=707070 


LAC FlAC 






SAD (525252 






SKP 






HIT /BAD 


AC, 


G00D=525252 


JMS HLOOPS 






JMS L00P2 






NOP 






LAC (707070 






LMQ 






LAC (525252 






DIV -23 






777776 






DAC riAC 






LACQ 






DAC FIMO 






SAD (707070) 






SKP /BAD 


MO, 


GOOD=707070 


HLT 






LAC FIAC 






SAD (525252 






SKP /BAD 


AC, 


G000s525252 


HLT 






JMS HLOOPS 






JMS L00P2 






.EJECT 







(664) 



(670) 



(706) 



(712) 



PACE 12 


FAF- 


I I 




niei2Pi 


740000 




SHP)21 


207205 




t^l022 


652000 




H1023 


207206 




01024 


664300 




01025 


«0(^001 




01026 


047156 




01027 


641002 




01030 


047157 




01031 


547205 




01032 


741000 




01033 


740040 




01034 


207156 




01035 


547206 




01036 


741000 




01037 


740040 




01040 


104130 




01041 


104157 




01042 


740000 




01043 


207205 




01044 


652000 




01045 


207206 




01046 


664300 




01047 


777776 




01050 


047156 




01051 


641002 




01052 


047157 




01053 


547205 




01054 


741000 




01055 


740040 




01056 


207156 




01057 


547206 




01060 


741000 




01061 


740040 




01062 


104130 



NOIVS 



NOP 




/NO 


SHIFTS 


LAC (070707) 








LMO 








LAC (252525 








nivs -?3 








00f1001 








DAG pIAC 








LACq 








DAG FIMO 








SAD (070707) 








SKP 








HLT /BAD 


MO, 


GOOD: 


=070707 


LAC FIAC 








SAD (252525) 








SKP 








HLT /BAD 


AC, 


GOOD: 


=252525 


JMS HLOOPS 








JMS L0OP2 








NOP 








LAC (070707 








LMQ 








LAC (252525 








OIVS -23 








777776 








DAG FIAC 








LACq 








OAC FIMO 








SAO (070707 








SKP 








HLT /BAD 


MO, 


GOOD: 


S070707 


LAC FIAC 








SAD (252525) 








SKP 








HLT /BAD 


AC, 


GOOD= 


=252525 


JMS HLOOPS 








.EJECT 









(730) 



(734) 



(752) 



(756) 



PAGE 13 


EAE- 


II 














Pilfl63 


104157 




JMS 


L00P2 








«iei64 


740000 




NOP 










R1065 


207207 




LAC 


(707070 








01066 


652000 




LMO 










01067 


207206 




LAC 


(252525 








01070 


664300 




DIVS 


i -23 








01071 


000001 




000001 








01072 


641002 




LACC 


1 








01073 


047157 




DAC 


FIHQ 








01074 


547207 




SAD 


(707070) 








01075 


741000 




SKP 










01076 


740040 




HLT 


/BAD 


MQ, 


GOOD=707070 




01077 


207156 




LAC 


FIAC 








01100 


547206 




SAD 


(252525) 








01101 


741000 




SKP 










01102 


740040 




HLT 


/BAD 


AC, 


0000=252525 




01103 


104130 




JMS 


HLOOPS 








01104 


104157 




JMS 


L00P2 








01105 


740000 




NOP 










01106 


207207 




LAC 


(707070 








01107 


652000 




LMO 










01110 


207210 




LAC 


(525252 








01111 


664300 




DIVS 


) -23 








01112 


777776 




777776 








01113 


047156 




DAC 


FIAC 








01114 


641002 




LACQ 








01115 


047157 




DAC 


FIMQ 








01116 


547207 




SAO 


(707070 








01117 


741000 




SKP 










01120 


740040 




HLT 


/BAD 


MO, 


0000=707070 




01121 


207156 




LAC 


FIAC 








01122 


547210 




SAD 


(525252) 








01123 


741000 




SKP 










01124 


740040 




HLT 


/BAD 


AC, 


0000=525252 




01125 


104130 




JMS 


HLOOPS 








01126 


104157 




JMS 


L0OP2 












/INTEGER 


DIVIDE 












/I CLEAR 


MQ 














/2 AC TO 


MO 














/3 CLEAR 


AC 
















.EJECT 







(773; 



(777) 



(1015) 



(1021) 



PAGE K 


EAE- 


II 




01127 


740000 




01130 


207205 




01131 


652000 




01132 


207206 




01133 


673300 




01134 


000001 




01135 


047156 




01136 


641002 




01137 


047157 




01140 


547206 




01141 


741000 




01142 


740040 




01143 


207156 




01144 


547211 




01145 


741000 




01146 


740040 




01147 


104130 




01150 


104157 




01151 


740000 




01152 


207205 




01153 


652000 




01154 


207206 




01155 


673300 




01156 


777776 




01157 


047156 




01160 


641002 




01161 


047157 




01162 


547206 




01163 


741000 




01164 


740040 




01165 


207156 




01166 


547211 




01167 


741000 




01170 


740040 




01171 


104130 




01172 


104157 



NIDIV 



NOp 




/NO 


SHIFT 


LAC (070707) 








LMO 








LAC (252525 








IDIV -23 








000001 








DAC [TlAC 








LACq 








DAC FIMQ 








SAO (252525 








SKP 








HLT /BAD 


MO, 


GOOD: 


=252525 


LAC FIAC 








SAO (000000) 








SKP 








HLT /BAD 


AC, 


GOOD: 


:000000 


JMS HLOOPS 








JMS LQ0P2 








NOP 








LAC (070707 








LMQ 








LAC (252525 








IDIV -23 








777776 








DAC FIAC 








LACQ 








DAC FIMQ 








SAO (252525 








SKP 








HLT /BAD 


MO, 


GOOD: 


252525 


LAC FIAC 








SAD (000000) 








SKP 








HLT /BAD 


AC, 


GOOD: 


:000000 


JMS HLOOPS 








JMS L00P2 








.EJECT 









(1037) 



(1043) 



(1061) 



(1065) 



PAGE 15 


EAE~ 


1 I 




01173 


740000 




01174 


207207 




fll75 


652000 




01176 


207206 




01177 


673300 




01200 


000001 




01201 


047156 




01202 


641002 




01203 


047157 




01204 


547206 




01205 


741000 




01206 


740040 




01207 


207156 




01210 


547211 




01211 


741000 




01212 


740040 




01213 


104130 




01214 


104157 




01215 


740000 




01216 


207207 




01217 


652000 




01220 


207210 




01221 


673300 




01222 


777776 




01223 


047156 




01224 


641002 




01225 


047157 




01226 


547210 




01227 


741000 




01230 


740040 




01231 


207156 




01232 


547211 




01233 


741000 




01234 


740040 




01235 


104130 




01236 


104157 



(7917070 



/BAD 
FIAC 
(000000 



NOP 

LAC 

LMO 

LAC (252525) 

IDIV -23 

000001 

DAC riAC 

LACQ 

DAC FIMQ 

SAD (252525 

SKP 

HLT 

LAC 

SAD 

SKP 

HLT 

JMS 

JMS 

NOP 

LAC 

LMQ 

LAC (525252 

IDIV -23 

777776 

DAC FIAC 

LACQ 

DAC FIMQ 

SAD (525252 

SKP 

HLT 

LAC 

SAD 

SKP 

HLT 

JMS 

JMS 



MO, G00Dr252525 



HLOOPS 
L00P2 

(707070 



/BAD AC, GOOD=000000 



m'^i) 



(1107) 



/BAD MQ, G00D=525252 
FIAC 
(000000) 



HLOOPS 
L00P2 



/BAD AC, 0000=000000 



(1125) 



(1131) 



.EJECT 



PAGE 16 


EAE- 


II 




01237 


740000 




PI1240 


207205 




01241 


652000 




01242 


207206 




01243 


677300 




01244 


000001 




01245 


047156 




01246 


641002 




01247 


047157 




01250 


547206 




01251 


741000 




01252 


740040 




01253 


207156 




01254 


547211 




01255 


741000 




01256 


740040 




01257 


104130 




01260 


104157 




01261 


740000 




01262 


207205 




01263 


652000 




01264 


207206 




01265 


677300 




01266 


777776 




01267 


047156 




01270 


641002 




01271 


047157 




01272 


547206 




01273 


741000 




01274 


740040 




01275 


207156 




01276 


547211 




01277 


741000 




01300 


740040 




01301 


104130 




01302 


104157 



NIDIVS NOP /NO SHIFTS INTEGFR DIVIDF SIGNFD 

LAC (070707) 
LMQ 

LAC (2S2525 
IDIVS -23 
000001 
OAC plAC 
LACq 

DAG FIMQ 
SAD (252525) 
SKP 
HLT /BAD MQ, G00D=252525 (1147) 

LAC FIAC 

SAD (000000) 

SKP 

HLT /BAD AC, GOOD = PI00000 (1153) 

JMS HLOOPS 

JMS L00P2 

NOP 

LAC (070707 

LMO 

LAC (252525 

lOIVS -23 

777776 

DAC FIAC 

LACq 

DAC FIMQ 

SAO (252525) 

SKP 

HLT /BAD MO, G000s252525 (ll7l) 

LAC FIAC 

SAO (000000) 

SKP 

HLT /BAD AC, GOOOS000000 (1175) 

JMS HLOOPS 

JMS L00P2 

.EJECT 



^AGE 17 


EAE-! 


1 I 




551303 


740000 




01304 


207207 




01305 


652000 




01306 


?5"7210 




01307 


677300 




01310 


000001 




01311 


047156 




01312 


641002 




01313 


047157 




01314 


547210 




01315 


741000 




01316 


740040 




01317 


207156 




01320 


547212 




01321 


741000 




01322 


740040 




01323 


104130 




01324 


104157 




01325 


740000 




01326 


207207 




01327 


652000 




01330 


207210 




01331 


677300 




01332 


777776 




01333 


047156 




01334 


641002 




01335 


047157 




01336 


547210 




01337 


741000 




01340 


740040 




01341 


207156 




0134? 


547212 




01343 


741000 




01344 


740040 




01345 


104130 




01346 


104157 



NOP 

LAC (7?I7070 

LMO 

LAC (525252 

IDIVS -23 

000001 

DAC FIAC 

LACQ 

OAC FIMQ 

SAD (525252 

SKP 

HLT /BAD MO, G00D=525252 (1213) 

LAC FIAC 

SAD (777777 

SKP 

HLT /BAD AC, 0000=777777 (1217) 

JMS HLOOPS 

JMS L0OP2 

NOP 

LAC (707070 

LMO 

LAC (525252 

lOIVS -23 

777776 

DAC FIAC 

LACQ 

DAC FIMQ 

SAD (525252 

SKP 

HLT /BAD MO, 0000=525252 (1235) 

LAC FIAC 

SAO (777777) 

SKP 

HLT /BAD AC, 0000=777777 (1241) 

JMS HLOOPS 

JMS L00P2 
/FRACTION DIVIDE 
/I CLEAR MO 

.EJECT 



PAGE Ifl 


EAF- 


II 




01347 


740000 




01350 


207205 




01351 


652000 




01352 


207206 




01353 


670300 




01354 


000001 




01355 


047156 




01356 


641002 




01357 


047157 




01360 


547211 




01361 


741000 




01362 


740040 




01363 


207156 




01364 


547206 




01365 


741000 




01366 


740040 




01367 


104130 




01370 


104157 




01371 


740000 




01372 


207205 




01373 


652000 




01374 


207206 




01375 


670300 




01376 


777776 




01377 


047156 




01400 


641002 




01401 


047157 




01402 


547211 




01403 


741000 




01404 


740040 




01405 


207156 




01406 


547206 




01407 


741000 




01410 


740040 




01411 


104130 




01412 


104157 



/NO SHIFT FRACTION DIVIDF 



NFRDIV NOP 

LAC (070707) 

LMQ 

LAC (252525 

FRDIV -23 

000001 

DAC flAC 

LACq 

DAC FIMQ 

SAO {01^0000 

SKP 

HIT /BAD MQ, GOOD=000000 (1257) 

LAC FIAC 

SAD (252525) 

SKP 

HLT /BAD AC. G00D=252525 (1263) 

JMS HLOOPS 

JMS L00P2 

NOP 

LAC (070707 

LMQ 

LAC (252525 

FRDIV -23 

777776 

DAC FIAC 

LACQ 

OAC FIMQ 

SAD (000000) 

SKP 

HLT /BAD MQ, GOODa000000 (1301) 

LAC FIAC 

SAD (252525) 

SKP 

HLT /BAD AC, G0OD=252525 (1305) 

JMS HLOOPS 

JMS L00P2 

.EJECT 



PAGE 19 


EAE- 


I I 




01413 


740000 




01414 


207207 




01415 


ft52000 




eil416 


207206 




01417 


670300 




01420 


000001 




01421 


047156 




01422 


641002 




01423 


047157 




01424 


547211 




01425 


741000 




01426 


740040 




01427 


207156 




01430 


547206 




01431 


741000 




01432 


740040 




01433 


104130 




01434 


104157 




01435 


740000 




01436 


207207 




01437 


652000 




01440 


207210 




01441 


670300 




01442 


777776 




01443 


047156 




01444 


641002 




01445 


047157 




01446 


547211 




01447 


741000 




01450 


740040 




01451 


207156 




01452 


547210 




01453 


741000 




01454 


740040 




01455 


104130 




01456 


104157 




01457 


7^0000 




01460 


207205 




01461 


652000 




01462 


207206 




01463 


674300 




01464 


000001 




01465 


047156 




01466 


641002 




01467 


047157 




01470 


547211 




01471 


741000 




01472 


740040 




01473 


207156 




01474 


547206 




01475 


741000 




01476 


740040 




01477 


104130 



/POP 

/ 

nfrdvs 



15 



(7 00 70 



NOP 

LAC 

LMO 

LAC (252525 

FRDIV -23 

000001 

DAC FIAC 

LACQ 

DAC FIMQ 

SAD (000000) 

SKP 

HLT 

LAC 

SAO 

SKP 
HLT 

JMS 
JMS 
NOP 
LAC 
LMO 
LAC 



/BAD 
FIAC 
(252525) 



MQ, GOOD=000000 



/BAD AC, G00D=?5?525 



HLOOPS 
L00P2 



(1323) 



(1327) 



(707070 

(525252 
23 



FRDIV 
777776 
DAC FIAC 
LACQ 
DAC FIMQ 



SAD 
SKP 
HLT 
LAC 
SAD 
SKP 
HLT 
JMS 
JMS 
EAE II 

NOP 

LAC 
LMQ 
LAC 



(000000) 

/BAD MQ, GOOO=000000 
FIAC 
<5?5?52> 



/BAD 
HLOOPS 
L00P2 

- TAPE 



(070707) 



AC, G000S525252 



(1345) 



(1351) 



/NO SHIFTS FRACTION DIVIDE SIGNED 



(252525 
FhDIVS -23 

000001 

OAC FIAC 

LACQ 

DAC FIMQ 

SAD (0(^0000) 

SKP 

HLT 

LAC 
SAD 
SKP 
HLT 
JMS 



/BAD 

FIAC 
(252525) 



MQ, GOOD=000000 



/BAD AC, G00D=?52525 



(1367) 



(1373) 



HLOOPS 



PAGE 20 


EAE- 


II 




H150PI 


104157 




01501 


740000 




01502 


207205 




01503 


652000 




01504 


207206 




01505 


674300 




01506 


777776 




01507 


047156 




01510 


641002 




01511 


047157 




01512 


547211 




01513 


741000 




01514 


740040 




01515 


207156 




01516 


547206 




01517 


741000 




01520 


740040 




01521 


104130 




01522 


104157 



JMS L0r)P2 

NOP 

LAC 

LMO 

LAC 

FROIVS - 

777776 

DAC pIAC 

LACq 

DAC riMO 



(070707 

(252525 
23 



SAO 
SKP 
HLT 

LAC 
SAO 
SKP 
HLT 
JMS 
JMS 



(000000) 

/BAD MO, GOODs(i)00000 



FIAC 
(252525) 



/BAD AC, ; +99 :252525 



(1411) 



(1415) 



HLOOPS 
L00P2 



.EJECT 



PAGE 21 


EAE- 


I I 




01523 


740000 




01524 


207207 




01525 


65?000 




01526 


207206 




01527 


674300 




01530 


000001 




01531 


047156 




01532 


641002 




01533 


047157 




01534 


547211 




01535 


741000 




01536 


740040 




01537 


207156 




01540 


547206 




01541 


741000 




01542 


740040 




01543 


104130 




01544 


104157 




01545 


740000 




01546 


207207 




01547 


652000 




0155PI 


207210 




01551 


674300 




01552 


777776 




01553 


047156 




01554 


641002 




01555 


047157 




01556 


547212 




01557 


741000 




01560 


740040 




01561 


207156 




01562 


547210 




01563 


741000 




01564 


740040 




01565 


104130 




01566 


104134 




01567 


104162 




01570 


104157 



NOP 

LAC (7?i7070 

LMO 

LAC (252525 

FRDIVS -23 

000001 

DAC FIAC 

LACQ 

DAC FIMQ 

SAD (01710000) 

SKP 

HLT 

LAC 

SAD 

SKP 

HLT 

JMS 

JMS 

NOP 

LAC 

LMQ 

LAC 

FRDIVS - 

777776 

DAC FIAC 

LACQ 

DAC FIMQ 



/BAD 
FIAC 
(252525) 



MO, GOOO=000000 



/BAD AC, G000=252525 



HLOOPS 
L00P2 

(707070 

(525252 
23 



(1433) 



(1437) 



SAD 
SKP 
HLT 
LAC 
SAO 
SKP 
HLT 
JMS 
JMS 
JMS 
JMS 



(777777) 

/BAD 
FIAC 
(525252) 



MO, 0000=777777 



/BAD AC, 0000=525252 



HLOOPS 
HLOOPM 
L00P4 
L00P2 



(1455) 



(1461) 



.EJECT 



PAGE 22 


EAF- 


I I 




PI1571 


744000 




0157? 


207212 




01573 


673101 




01574 


PI00001 




01575 


047156 




01576 


547211 




01577 


741000 




01600 


740040 




01601 


641002 




01602 


047157 




01603 


547212 




01604 


741000 




01605 


740040 




01606 


641001 




01607 


740200 




01610 


740040 




01611 


104130 




01612 


104157 




01613 


207212 




01614 


673102 




01615 


000002 




01616 


047156 




01617 


547213 




01620 


741000 




01621 


740040 




01622 


641002 




01623 


047157 




01624 


547214 




01625 


741000 




01626 


740040 




01627 


641001 




01630 


740200 




01631 


740040 




01632 


104130 




01633 


104157 




01634 


207212 




01635 


673103 




01636 


000004 




01637 


047156 




01640 


547215 




01641 


741000 




01642 


740040 




01643 


641002 




01644 


047157 




01645 


547216 




01646 


741000 




01647 


740040 




01650 


641001 




01651 


740200 




01652 


740040 




01653 


104130 



/SHIFT COUNTER TEST 



/MULTIPLY WITH SHIFT OF ONE 



SHCTi CLL 

LAC (777777 

MUL -21 

000001 

OAC (rlAC# 

SAD (0i;i0000 

SKp 

HLT /BAD AO, 0000=000000 (1475) 

LACQ 

DAC FIMO# 

SAO (777777 

SKP 

HLT /BAD MO, G00D=777777 (1502) 

LACS 

SZA 

HLT /BAD SC, 0000=000000 (l505) 

JMS HLOOPS 
ShcT2 JMS L00P2 /MUlTJPLY WjTh ShIfT Of TWO 

LAC (777777 

MUL -20 

000002 

DAC FIAC 

SAO (0C10001 

SKp 

HLT /BAD AC, 0000=000001 (1516) 

LACQ 

OAC FIMO 

SAD (577777 

SKP 

HLT /BAD MO, 0000=577777 (1523) 

LACS 

SZA 

HLT /BAD SC. 0000=000000 (1526) 

JMS HLOOPS 
SHCT3 JMS L00P2 /MULTIPLY WjTh SHIFT OF THREE 

LAC (777777 

MUL -17 

000004 

OAC FIAC 

SAD (000003 

SKP 

HLT /BAD AC, 0000=000003 (1537) 

LACO 

OAC FIMO 

SAO (477777 

SKP 

HLT /BAD MQ. 0000=477717 (1544) 

LACS 

SZA 

HLT /BAD SC, 0000=000000 (1547) 

JMS HLOOPS 

.EJECT 



AGE 2;! 


! EAE-: 


! I 




01654 


104157 




01655 


207212 




01656 


673104 




01657 


?)00010 




01660 


047156 




01661 


547217 




01662 


741000 




01663 


740040 




01664 


641002 




01665 


047157 




01666 


547220 




01667 


741000 




01670 


740040 




01671 


641001 




01672 


740200 




01673 


740040 




01674 


I04I30 




01675 


104157 




01676 


207212 




01677 


673105 




01700 


000020 




01701 


047156 




01702 


547221 




01703 


741000 




01704 


740040 




01705 


641002 




01706 


047157 




01707 


547222 




01710 


741000 




01711 


740040 




01712 


641001 




«il713 


740200 




01714 


740040 




01715 


I04I30 




01716 


104157 




01717 


207212 




01720 


673106 




01721 


000040 




01722 


047156 




01723 


547223 




01724 


741000 




01725 


740040 




01726 


641002 




01727 


047157 




01730 


547224 




01731 


741000 




01732 


740040 




01733 


641001 




01734 


740200 




01735 


740040 




01736 


104130 



GOODS000007 



G000=437777 



GOOOS00P10P0 



/SHIFT or FIVE 



SHCT4 JMS L00P2 /SHIFT OF FOUR 

LAC (777777 

MUL -16 

000010 

OAC FIAC 

SAD {0'7i0007 

SKP 

HLT /BAD AC, 

LACO 

DAC FIMQ 

SAD (437777 

SKP 

HLT /BAD MO, 

LACS 

S2A 

HLT /BAD SC, 

JMS HLOOPS 
SHCT5 JMS L00P2 

LAC (777777 

MuL -15 

000020 

DAC FIAC 

SAD (000017 

SKP 

HLT /BAD AC, 

LACQ 

DAC FIMQ 

SAD (417777 

SKP 

HLT /BAD MO, 

LACS 

SZA 

HLT /BAD SC, 

JMS HLOOPS 
SHCT6 JMS L00P2 

LAC (777777 

MuL -14 

000040 

DAC FIAC 

SAD (000037 

SKP 

HLT /BAD AC, 

LACQ 

DAC FIMQ 

SAD (407777 

SKP 

HLT /BAD 

LACS 

SZA 

HLT /BAD SC, GOOD:000000 

JMS HLOOPS 

.EJECT 



(1560) 



(1565) 



(1574) 



GOOD=000017 



G00D=417777 



GOOD = PI00000 
/SHIFT OF SIX 



(1601) 



(1606) 



(1611) 



GOODS000037 



MO, GOOD=407777 



(1622) 



(1627) 



(1632) 



PAGE 24 


EAF- 


II 




01737 


104157 




0174PI 


207212 




01741 


673107 




01742 


000100 




01743 


047156 




01744 


547225 




01745 


741000 




01746 


740040 




01747 


641002 




01750 


047157 




01751 


547226 




01752 


741000 




01753 


740040 




01754 


641001 




01755 


740200 




01756 


740040 




01757 


104130 




01760 


104157 




01761 


207212 




01762 


673110 




01763 


000200 




01764 


047156 




01765 


547227 




01766 


741000 




01767 


740040 




01770 


641002 




01771 


047157 




01772 


547230 




01773 


741000 




01774 


740040 




01775 


641001 




01776 


740200 




01777 


740040 




02000 


I04I30 




02001 


104157 




02002 


207212 




02003 


673111 




02004 


000400 




02005 


047156 




02006 


547231 




02007 


741000 




02010 


740040 




02011 


641002 




02012 


047157 




02013 


547232 




02014 


741000 




02015 


740040 




02016 


641001 




02017 


740200 




02020 


740040 




02021 


104130 



SHCT7 JMS L0nP2 /SHIFT OF SEVEN 

LAC (777777 

MUL -i:^ 

000100 

OAC [TlAC 

SAD (0(^0077 

SKp 

HLT /BAD AC, GOOD=000077 (1643) 

LACQ 

OAC FIMQ 

SAO (45^3777 

SKP 

HLT /BAD MQ, GOOD=403777 (1650) 

LACS 

SEA 

HLT /BAD SC, GOODS000000 (1653' 

JMS HLOOPS 
SHCT10 JMS L00P2 /SHIFT OF TeN 

LAC (777777 

MuL -12 

000200 

OAC FIAC 

SAD (000177 

SKp 

HLT /BAD AC, GOOO=000177 (1664) 

LACQ 

OAC FIMQ 

SAO (401777 

SKP 

HLT /BAD MQ, 0000=401777 (1671) 

LACS 

SZA 

HLT /BAD SC, GOODs000000 (1674) 

JMS HLOOPS 
SHCTll JMS L00P2 /SHIFT OF ELEVEN 

LAC (777777 

MUL -11 

000400 

OAC FIAC 

SAD (000377 

SKP 

HLT /BAD AC, GOOO=000377 (1705) 

LACQ 

DAC FIMQ 

SAD (400777 

SKP 

HLT /BAD MO, GOOD=400777 (1712) 

LACS 

SZA 

HLT /BAD SC, GOOD = ?I00000 (1715) 

JMS HLOOPS 

.EJECT 



PAGE 25 


EAE-1 


I 




02022 


104157 




0?023 


207212 




02024 


673112 




02025 


T 1 




02026 


047156 




02027 


547233 




0203f! 


741000 




02031 


740040 




02032 


641002 




02033 


047157 




02034 


547234 




02035 


741000 




02036 


740340 




02037 


641001 




02040 


740200 




02041 


740040 




02042 


104130 




02043 


104157 




02044 


207212 




02045 


673113 




02046 


002000 




02047 


047156 




02050 


547235 




02051 


741000 




02052 


740040 




02053 


641002 




02054 


047157 




02055 


547236 




02056 


741000 




02057 


740040 




02060 


641001 




02061 


740200 




02062 


740040 




02063 


104130 




02064 


104157 




02065 


207212 




02066 


673114 




02067 


004000 




02070 


047156 




02071 


547237 




02072 


741000 




02073 


740040 




02074 


641002 




02075 


047157 




02076 


547240 




02077 


741000 




02100 


740040 




02101 


641001 




02102 


740200 




02103 


740040 




02104 


104130 



SHCT12 



SHCT13 



SHCT14 



JMS L00P2 

LAC (7777 

MUL -1£^ 

001000 

DAC FIAC 

SAD (0(107 

SKP 

HLT 

LACQ 

DAC FIMQ 

SAD (4003 

SKP 

HLT 

LACS 

SZA 

HLT 

JMS HLOOP 

JMS L00P2 

LAC (7777 

MUL -7 

002000 

DAC FIAC 

SAD (0017 

SKP 

HLT 

LACQ 

DAC FIMQ 

SAD (4001 

SKP 

HLT 

LACS 

SZA 

HLT 

JMS HLnOP 

JMS L00P2 

LAC (7777 

MUL -6 

004000 

DAC FIAC 

SAD (0037 

SKp 

HLT 

LACQ 

DAC FIMQ 

SAO (41^00 

SKP 

HLT 

LACS 

S2A 

HLT 

JMS HLOOP 

.EJECT 



/SHIFT OF TWELVE 



77 

77 
/BAD AC. 

77 
/BAD MQ, 



GOOO=000777 



GOOD=400377 



(1726) 



(1733) 



/BAD SC. GOOD=000000 (l736' 

/SHIFT OF Thirteen 



77 
/BAD AC, 

77 
/BAD MO, 



GOOD=001777 



(1747) 



0000=400177 (1754) 



/BAD SC, GOOD=000000 (1757) 
/SHIFT OF FOURTEEN 



77 
/BAD AC, 

77 

/BAD MO, 



GOOD=003777 (1770) 



GOOD=400077 (1775) 



/BAD SC, GOOD:000000 (2000) 



PAGE 26 


EAE- 


II 




02105 


104157 




02106 


207212 




02107 


67:^115 




02110 


010000 




02111 


047156 




02112 


547241 




02113 


741000 




02114 


740040 




02115 


641002 




02116 


047157 




02117 


547242 




02120 


741000 




02121 


740040 




02122 


641001 




02123 


740200 




02124 


740040 




02l25 


104130 




02126 


104157 




02127 


207212 




02130 


673116 




02131 


020000 




02132 


047156 




02133 


547243 




02134 


741000 




02135 


740040 




02136 


641002 




02137 


047157 




02140 


547244 




02141 


741000 




02142 


740040 




02143 


641001 




02144 


740200 




02145 


740040 




02146 


104130 




02147 


104157 




02150 


207212 




02151 


673117 




02152 


040000 




02153 


047156 




02154 


547245 




02155 


741000 




02156 


740040 




02157 


641002 




02160 


047157 




02161 


547246 




02162 


741000 




02163 


740040 




02164 


641001 




02165 


740200 




02166 


740040 




02167 


104130 



(2011) 

(2016) 
(2021) 



SHCTi5 JMS LOOP? /SHIFT OF FIFTEEN 

LAC (777777 
MUL -5 

010000 

DAC FlAC 

SAO (007777 

SKp 

HLT /BAD AC, GOOO=007777 

LACQ 

DAC FIMQ 

SAD (400037 

SKP 

HLT /BAD MO, 0000=400037 

LACS 

SZA 

HLT /BAD SC, 0000=000000 

JMS HLOOPS 
ShcT16 JMS L00P2 /SHIFT Of SjXTeeN 

LAC (777777 

MUL -4 

020000 

DAC FIAC 

SAD (017777 

SKp 

HLT /BAD AC, 0000=017777 

LACQ 

DAC FIMQ 

SAD (400017 

SKP 

HLT /BAD MQ, 0000=400017 

LACS 

SZA 

HLT /BAD SC, 0000=000000 

JMS HLOOPS 
SHCT17 JMS L00P2 /SHIFT OF SEVENTEEN 

LAC (777777 

MUL -3 

040000 

DAC FIAC 

SAO (037777 

SKP 

HLT /BAD AC. 0000=037777 

LACQ 

DAC FIMQ 

SAD (400007 

SKP 

HLT /BAD MO, 0000=400007 

LACS 

SZA 

HLT /BAD SC, 0000=000000 

JMS HLOOPS 

.EJECT 



(2032) 

(2037) 
(2042' 



(2053) 

(2060) 
(2063) 



AGE 27 


EAE-I 


I 




02170 


104157 




02171 


207212 




02172 


673120 




02173 


100000 




02174 


047156 




02175 


547247 




02176 


741000 




02177 


740040 




02200 


641002 




02201 


047157 




02202 


547250 




02203 


741000 




02204 


740040 




02205 


641001 




02206 


740200 




02207 


740040 




022^0 


104130 




02211 


104157 




02212 


207212 




02213 


673121 




02214 


200000 




02215 


047156 




02216 


547251 




02217 


741000 




02220 


740040 




02221 


641002 




02222 


047157 




02223 


547252 




02224 


741000 




02225 


740040 




02226 


641001 




02227 


740200 




02230 


740040 




02231 


104130 




02232 


104157 




02233 


207212 




02234 


653122 




02235 


400000 




02236 


047156 




02237 


547253 




02240 


741000 




02241 


740040 




02242 


641002 




02243 


047157 




02244 


547254 




02245 


741000 




02246 


740040 




02247 


641001 




02250 


740200 




02251 


740040 




02252 


104130 




02253 


104134 




02254 


104162 



SHCT20 JMS LOOP? /SHIFT OF TWENTY 

LAC (777777 

MUL -2 

100000 

DAC FIAC 

SAD (077777 

^K P 

HLT /BAD AC, 0000=077777 (2074) 

LACQ 

DAC FIMQ 

SAD (400003 

SKP 

HLT /BAD MO. GOOD=400003 (2101) 

LACS 

SEA 

HLT /BAD SC. GOOO=000000 (2104) 

JMS HLOOPS 
SHCT21 JMS L00P2 /SHIFT OF TWeNTYONE 

LAC (777777 

MUL -1 

200000 

DAC FIAC 

SAO (177777 

SKP 

HLT /BAD AC, G00D=l77777 (2115) 

LACQ 

DAC FIMQ 

SAD (400001 

SKP 

HLT /BAD MQ, GOOO=400001 (2122) 

LACS 

SZA 

HLT /BAD SC, GOOO=000000 (2125) 

JMS HLOOPS 
SHCT22 JMS L00P2 /SHIFT OF TWeNTYTWO 

LAG (777777) 

MUL 

400000 

DAC FIAC 

SAD (377777 

SKp 

HLT /BAD AC, G00D=377777 (2136) 

LACQ 

DAC FIMQ 

SAD (400000 

SKP 

HLT /BAD MQ, GOOD=400000 (2143) 

LACS 

SZA 

HLT /BAD SC, GOOD=000000 (2146) 

JMS HLOOPS 

JMS HLOOPM 

JMS L00P4 

.EJECT 



PAGE 28 


EAF- 


11 




02255 


104157 




02256 


207255 




«2257 


652000 




02260 


207256 




02261 


640301 




02262 


377777 




02263 


047156 




02264 


547256 




02265 


741000 




02266 


740040 




02267 


641002 




02270 


047157 




02271 


547257 




02272 


741000 




02273 


740040 




02274 


104130 




02275 


I04I57 




02276 


207255 




02277 


652000 




02300 


207256 




02301 


640302 




02302 


377777 




02303 


047156 




02304 


547260 




02305 


741000 




02306 


740040 




02307 


641002 




02310 


047157 




02311 


547261 




02312 


741000 




02313 


740040 




02314 


104130 



/DIVIDE SHIFT 


TEST 


DSCl JMS 


LOOP? 


LAC 


(52523 


LMQ 




LAC 


(052524 


DIV- 


■22 


377777 


DAC 


FlAC# 


SAD 


(052524 


SKp 




HIT 




LACQ 


OAC 


riMQ# 


SAO 


(125246 


SKP 




HLT 




JMS 


HLOOPS 


/ 

DSc2 JMS 


L00P2 


LAC 


(52523 


LMQ 




LAC 


(052524 


DIV- 


•21 


377777 


DAC 


FIAC 


SAD 


(125250 


SKP 




HLT 




LACC 


1 


DAC 


FIMQ 


SAD 


(252514 


SKP 




HLT 




JMS 


HLOOPS 



/SHirT OF ONE 



/BAD AC; GOOD = 052524 

/BAD MO! GOOD = 125246 
/SHIFT OF TWO 



/BAD AC; GOOD = 125250 



/BAD MQ; good = 252514 



.EJECT 



PAGE 2S 


1 EAE-] 


[I 








02315 


104157 


DSC3 


JMS L00P2 




02316 


207255 




LAC (52523 




02317 


652000 




LMQ 




02320 


25)7256 




LAC (052524 




02321 


640303 




OIV-20 




02322 


377777 




377777 




02323 


047156 




DAC FIAC 




02324 


547262 




SAD (252520 




02325 


741000 




SKP 




02326 


740040 




HLT 




02327 


641002 




LACQ 




02330 


047157 




DAC FIMO 




02331 


547263 




SAD (525230 




02332 


741000 




SKP 




02333 


740040 




HLT 




02334 


104130 


DSC4 


JMS HLOOPS 




02335 


I04I57 


JMS L00P2 




02336 


207255 




LAC (52523 




02337 


652000 




LMQ 




02340 


207256 




LAC (052524 




02341 


640304 




DIV-17 




02342 


377777 




377777 




02343 


047156 




DAC FIAC 




02344 


547264 




SAO (125241 




02345 


741000 




SKP 




02346 


740040 




HLT 




02347 


641002 




LACQ 




02350 


047157 




DAC FIHQ 




02351 


547265 




SAD (252461 




02352 


741000 




'SKP 




02353 


740040 




HLT 




02354 


104130 


/ 

DSC5 


JMS HLOOPS 




02355 


I04I57 


JMS L00P2 




02356 


207255 




LAC (52523 




02357 


652000 




LMQ 




02360 


207256 




LAC (052524 




02361 


640305 




DIV-16 




02362 


377777 




377777 « 




02363 


047156 




DAC FIAC 




02364 


547266 




SAD (252503 




02365 


741000 




SKp 




02366 


740040 




HLT 




02367 


641002 




LACQ 




02370 


047157 




DAC FIMQ 




02371 


547267 




SAD (525142 




02372 


741000 




SKP 




02373 


740040 




HLT 




02374 


104130 




JMS HLOOPS 



/SHIFT OF ThRFF 



/BAD AC; GOOD = 252520 



/BAD MO; GOOD = 525230 



/SHIFT OF FOUR 



/BAD AC; GOOD = 125241 

/BAD MO; GOOD = 252461 
/SHIFT OF FJVE 



/BAD AC; GOOD = 2525P'3 



/BAD MQ; GOOD = 525142 



.EJECT 



PAGE 3(5 


EAE- 


II 




02375 


104157 




02376 


207255 




02377 


65?000 




02400 


207256 




02401 


640306 




02402 


377777 




02403 


047156 




02404 


547270 




02405 


741000 




02406 


740040 




02407 


641002 




02410 


047157 




02411 


547271 




02412 


741000 




02413 


740040 




02414 


104130 




024I5 


I04I57 




02416 


207255 




02417 


652000 




02420 


207256 




02421 


640307 




02422 


377777 


1 


02423 


047156 




02424 


547272 




02425 


741000 




02426 


740040 




02427 


641002 




02430 


047157 




02431 


547273 




02432 


741000 




02433 


740040 




02434 


104130 




02435 


104157 




02436 


207255 




02437 


652000 




02440 


207256 




02441 


640310 




02442 


377777 




02443 


047156 




02444 


547274 




02445 


741000 




02446 


740040 




02447 


641002 




02450 


047157 




02451 


547275 




02452 


741000 




02453 


740040 




02454 


104130 



DSC6 



DSC7 



/ 

DSClt 



JMS LOOP2 

LAC (52523 

LMQ 

LAC (052524 

DI V-15 

377777 

DAC pIAC 

sAO (125207 

SKp 

HLT 

LACQ 

DAC FIMQ 

SAD (252305 

SKP 

HLT 

JMS HLnOPS 

JMS L00P2 

LAC (52523 

LMQ 

LAC (052524 

DlV-14 

377777 

DAC FIAC 

SAD (252417 

SKp 

HLT 

LACO 

DAC FIMQ 

SAO (524612 

SKP 

HLT 

JMS HLOOPS 

JMS L00P2 

LAC (52523 

LMQ 

LAC (052524 

DIV-13 

377777 

DAC FIAC 

SAO (125037 

SKP 

HLT 

LACO 

DAC FIMQ 

SAO (251425 

SKP 

HLT 

JMS HLOOPS 

.EJECT 



/SHIFT OF SIX 



/BAD AC; GOOD = 125207 

/BAD MQ; good = 252305 
/SHIFT OF SEVEN 



/BAD AC; GOOD = 252417 



/BAD MO; GOOD = 524612 



/SHIFT OF TEN 



/BAD AC; GOOD = 125037 



/BAD MQ; GOOD = 251425 



^P^GE 31 


EAE- 


II 




02455 


104157 




02456 


?07255 




02457 


65?000 




02460 


?07256 




02461 


640311 




02462 


377777 




02463 


047156 




02464 


547276 




02465 


741000 




02466 


740040 




02467 


641002 




02470 


047157 




02471 


547277 




02472 


741000 




02473 


740040 




02474 


104130 




02475 


I04I57 




02476 


207255 




02477 


652000 




02500 


207256 




02501 


640312 




02502 


377777 




02503 


047156 




02504 


547300 




02505 


741000 




02506 


740040 




02507 


641002 




02510 


047157 




02511 


547301 




02512 


741000 




02513 


740040 




02514 


104130 




025I5 


104157 




02516 


207255 




02517 


652000 




02520 


207256 




02521 


640313 




02522 


377777 




02523 


047156 




02524 


547302 




02525 


741000 




02526 


740040 




02527 


641002 




02530 


047157 




02531 


547303 




02532 


741000 




02533 


740040 




02534 


104130 



OSCll 


JMS LOOP2 




LAC (52523 




LMQ 




LAC (052524 




OIV-12 




377777 




OAC FIAC 




SAD (252077 




SKP 




HLT 




LACQ 




DAC riMQ 




SAO (523052 




SKP 




HLT 




JMS HLOOPS 


/ 




0SC12 


JMS L00P2 




LAC (52523 




LMQ 




LAC (052524 




OIV-11 




377777 




DAC FIAC 




SAD (124177 




SKP 




HLT 




LACQ 




DAC FIMQ 




SAD (246125 




SKP 




HLT 




JMS HLOOPS 


/ 




DSC13 


JMS L00P2 / 




LAC (52523 




LMO 




LAC (052524 




OIV-10 




377777 




DAC FIAC 




SAD (250377 




SKp 




HLT 




LACQ 




OAC FIMQ 




SAD (514252 




SKP 




HLT 




JMS HLOOPS 




.EJECT 



/SHIFT OF ELFVFN 



/BAD AC; GOOD = 252077 

/BAD MO; GOOD = 523052 
/SHIFT OF TWELVE 



/BAD AC; GOOD = 124177 



/BAD MO; GOOD = 246125 



/BAD AC; GOOD = 250377 



/BAD MO; GOOD = 514252 



PAGE 32 


EAE- 


I I 




02535 


104157 




02536 


207255 




02537 


652000 




02540 


207256 




02541 


640314 




02542 


377777 




02543 


047156 




02544 


547304 




02545 


741000 




02546 


740040 




02547 


641002 




02550 


047157 




02551 


547305 




02552 


741000 




02553 


740040 




02554 


104130 




02555 


104157 




02556 


207255 




02557 


652000 




02560 


207256 




02561 


640315 




02562 


377777 




02563 


047156 




02564 


547306 




02565 


741000 




02566 


740040 




02567 


641002 




02570 


047157 




02571 


547307 




02572 


741000 




02573 


740040 




02574 


104130 




02575 


104157 




02576 


207255 




02577 


652000 




02600 


207256 




02601 


640316 




02602 


377777 




02603 


047156 




02604 


547310 




02605 


741000 




02606 


740040 




02607 


641002 




02610 


047157 




02611 


547311 




02612 


741000 




02613 


740040 




02614 


104130 



0SC14 


JMS LOOP? 




LAC (5?523 




LMO 




LAC (052524 




OIV-7 




377777 




DAG frIAC 




SAD (120777 




SKp 




HLT 




LACQ 




DAC FIMQ 




SAD (230525 




SKP 




HLT 




JMS HLOOPS 


/ 




DSC15 


JMS L00P2 




LAC (52523 




LMQ 




LAC (052524 




OIV-6 




377777 




OAC riAC 




SAD (241777 




SKp 




HLT 




LACQ 




DAC FIMQ 




SAD (461252 




SKP 




HLT 




JMS HLOOPS 


/ 




0SC16 


JMS L00P2 




LAC (52523 




LMO 




LAC (052524 




DIV-5 




377777 




OAC FIAC 




SAD (1?I3777 




SKP 




HLT 




LACQ 




DAC FIMQ 




SAD (142525 




SKP 




HLT 




JMS HLOOPS 




.EJECT 



/SHIFT OF FOURTEEN 



/BAD AC; GOOD = 120777 

/BAD MQ; GOOD = 230525 
/SHIFT OF FIFTEEN 



/BAD AC; GOOD = 241777 

/BAD MQ; GOOD = 461252 
/SHIFT OF SIXTEEN 



/BAD AC; GOOD = 1C13777 



/BAD MQ; GOOD = 142525 



PAGE 33 FAf- 


I I 






02615 


104157 


nSCl7 JMS LOOP2 




02616 


??I7255 


LAC (52523 




P)2617 


652^00 


LMQ 




02621^ 


PPI7256 


LAC (0S2524 




02621 


6451317 


DIV-4 




02622 


377777 


377777 




02623 


C147156 


OAC FIAC 




02624 


547312 


SAO iz^im 




02625 


741000 


SKP 




02626 


740040 


HLT 




02627 


6411^02 


LACQ 




02630 


047157 


DAC FIMQ 




02631 


547313 


SAD (305252 




02632 


741000 


SKP 




02633 


740040 


HLT 




02634 


104130 


JMS HLOOPS 
/ 
DSC20 JMS L00P2 




02635 


I04I57 




02636 


207255 


LAC (52523 




02637 


652000 


LMQ 




02640 


207256 


LAC (052524 




02641 


640320 


01 V-3 




02642 


377777 


377777 




02643 


047156 


DAC FIAC 




02644 


547243 


SAD (017777 




02645 


741000 


SKP 




02646 


740040 


HLT 




02647 


641002 


LACQ 




02650 


047157 


DAC FIMQ 




02651 


547314 


SAD (612525 




02652 


741000 


SKP 




02653 


740040 


HLT 




02654 


104130 


JMS HLOOPS 
/ 
DSC21 JMS L00P2 




02655 


I04I57 




02656 


207255 


LAC (52523 




02657 


652000 


LMQ 




02660 


207256 


LAC (052524 




02661 


640321 


DIV-2 




02662 


377777 


377777 




02663 


047156 


DAC rlAC 




02664 


547315 


SAD (037776 




02665 


741000 


SKp 




02666 


740040 


HLT 




02667 


641002 


LACQ 




02670 


047157 


OAC FIMQ 




02671 


547316 


SAD (425252 




02672 


741000 


SKP 




02673 


740040 


HLT 




02674 


104130 


JMS HLOOPS 




02675 


104134 


JMS HLOOPM 




02676 


104162 


JMS L00P4 
/EAE PART n Tape 2A 
/EAE SIGN TEST 



/SHIFT OF SEVENTEEN 



/BAD AC; GOOD = 207777 

/BAD MO; GOOD = 305252 
/SHIFT OF TWENTY 



/BAD AC; GOOD = 017777 

/BAD MO; GOOD = 612525 
/SHIFT OF TWENTYONE 



/BAD AC; GOOD = 037776 



/RAO MO; GOOD = 425252 



PAGE 34 



EAF-II 







/MULS SIGN TEST 






/EAE AC SIGN FF TEST 


%2bTI 


I04I57 


STMUL JMS L00P2 


02700 


207317 


LAC (0(^000? 


02701 


664000 


gSm 


02702 


653122 


MUL 


02703 


777776 


777776 


02704 


741100 


SPA 


02705 


74«040 


HLT 


02706 


207320 


LAC (777775 


02707 


664000 


GSM 


02710 


207320 


LAC (777775 


02711 


653122 


MUL 


02712 


777776 


777776 


02713 


740100 


sma 


02714 


740040 


HLT 


02715 


104130 


JMS HLOOPS 


02716 


104157 


STMULS JMS L00P2 


02717 


207213 


LAC (000001 


02720 


664000 


GSM 


02721 


657122 


MULS 


02722 


000002 


000002 


02723 


741100 


SPA 


02724 


740040 


HLT 


02725 


207321 


LAC (777776 


02726 


664000 


GSM 


02727 


207317 


LAC (000002 


02730 


657122 


MULS 


02731 


777776 


777776 


02732 


741100 


SPA 


02733 


741000 


SKP 


02734 


740040 


HLT 


02735 


207320 


LAC (777775 


02736 


664000 


GSM 


02737 


207320 


LAC (777775 


02740 


657122 


MULS 


02741 


777776 


777776 


02742 


741100 


SPA 


02743 


740040 


HLT 


02744 


207213 


LAC (000001 


02745 


664000 


GSM 


02746 


207320 


LAC (777775 


02747 


657122 


MULS 


02750 


000002 


000002 


02751 


741100 


SPA 


02752 


741000 


SKP 


02753 


740040 


HLT 
.EJECT 



/(HLT ADDRESS) 

/gSM=0 AC=0 

/SHqULD re poSItIvE (2160) 

/GSMsl AC=1 

/SHouLD BE NEGATIVE (2167) 

/GSM=0 AC=0 

/SHquLD be POSITIVE (2177) 

/GSMri AC=0 



/SHOULD BE NEGATIVE (2207) 

/GSM=1 AC=1 

/SHOULD BE POSITIVE (2216) 

/GSM=0 AC=1 



/SHOULD RE NEGATIVE (?2?6) 



^P'AGE 35 


EAE- 


II 




0275^ 


104130 




02755 


104157 




02756 


207322 




02757 


652000 




02760 


202764 




02761 


664000 




02762 


207211 




02763 


644323 




02764 


000004 




02765 


741400 




02766 


740040 




02767 


047156 




02770 


547213 




02771 


741000 




02772 


740040 




02773 


641002 




02774 


047157 




02775 


547213 




02776 


741000 




02777 


740040 




03000 


104130 



/DIVIDE SIGN TEST oIVS 

JMS HLOOPS 
STDIVS JMS L00P2 

LAC (0?I0005 

LMQ 

LAC .*4 

GSM 

LAC (000000 

OIVS 

000004 

S2L 

HLT /BAD L1NK» GOOD LINK=0 (2241) 

DAC riAC# 

SAD (000001 

SKP 

HLT /BAD AC, GOODS000001 (2245) 

LACQ 

DAC FIMQ# 

SAO (0i^0001 

SKP 

HLT /BAD MO, GOOD=000001 (2252) 

JMS HLOOPS 

.EJECT 
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EAE- 


11 




03001 


104157 




03002 


207322 




03003 


652000 




03004 


207323 




03005 


664000 




03006 


207211 




03007 


644323 




03010 


000004 




03011 


741400 




03012 


740040 




03013 


047156 




03014 


547213 




03015 


741000 




03016 


740040 




03017 


641002 




03020 


047157 




03021 


547321 




03022 


741000 




03023 


740040 




03024 


104130 




03025 


104157 




03026 


207324 




03027 


652000 




03030 


203034 




03031 


664000 




03032 


207212 




03033 


644323 




03034 


000004 




03035 


741400 




03036 


740040 




03037 


047156 




03040 


547321 




03041 


741000 




03042 


740040 




03043 


641002 




03044 


047157 




03045 


547321 




03046 


741000 




03047 


740040 




03050 


104130 



SIGNA 



SIGNB 



JMS LOOP? 

LAC (0^10005 

LMQ 

LAC (777773 

GSM 

LAC (0) 

DIVS 

000004 

S2L 

hlt 

OAC riAC 

SAD (0510001 

SKP 

HLT /BAD AC, 0000=000001 

LACQ 

OAC FIMQ 

SAO (777776 

SKP 



/BAD LINK. gOOO LINK=0 (2265) 



(2271) 



HLT 



/BAD MQ, 0000=777776 



(2276) 



JMS HLOOPS 

JMS LOOP2 

LAC (777772 

LMQ 

LAC .+4 

GSM 

LAC (777777 

DIVS 

000004 

SZL 

HLT /BAD LINK. OOOO LINK=0 

OAC FUC# 

SAO (777776 

SKP 

HLT 

LACQ 

OAC riMQiK 

SAD (777776 

SKP 



/BAD AC, 0000=777776 



HLT 

JMS HLOOPS 

.EJECT 



/BAD MO, 0000=777776 



(2311) 



(2315) 



(2322) 
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EAE- 


I I 




03051 


1041'S7 




0305? 


? 7 3 ? 4 




03053 


h<5?^^i? 




03054 


?;" ■.5?3 




03055 


664*500 




03056 


207212 




03057 


644323 




03060 


000004 




03061 


741400 




03062 


740040 




03063 


047156 




03064 


547321 




03065 


741000 




03066 


740040 




03067 


641002 




03070 


047157 




03071 


547213 




03072 


741000 




03073 


740040 




03074 


104130 



SIGNC JMs L00P2 

LAC (77777? , 

LMO 

LAC (777773 

GSM 

LAC (777777 

DIVS 

000004 

S^L 

HLT /BAD LINK. gOOD LINK=0 (2335) 

nAC FIAC 

SAO (777776 

SKP 

HLT /BAD AC, 0000=777776 (2341) 

LACQ 

OAC FIMQ 

SAD (000001 

SKP 

HLT /BAD MQ, GOOO=000001 (2346) 

JMS HLOOPS 

.EJECT 
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EAE- 


11 




03075 


104157 




03076 


207212 




03077 


652000 




03100 


203104 




03101 


664000 




03102 


207322 




03103 


657323 




03104 


000004 




03105 


741400 




03106 


740040 




03107 


047156 




03110 


547213 




03111 


741000 




03112 


740040 




03113 


641002 




03114 


047157 




03115 


547213 




03116 


741000 




03117 


740040 




03120 


104130 




03121 


104157 




03122 


207211 




03123 


652000 




03124 


207321 




03125 


664000 




03126 


207322 




03127 


657323 




03130 


000004 




03131 


741400 




03132 


740040 




03133 


047156 




03134 


547213 




03135 


741000 




03136 


740040 




03137 


641002 




03140 


047157 




03141 


547321 




03142 


741000 




03143 


740040 




03144 


104130 



/DIVIDE SIGN TEST iniVS 



STIDVS 



SIGNO 



L0nP2 
(777777 

. +4 



/BAD 
FIAC# 
(000001 



JMS 

LAC 

LMO 

LAC 

GSM 

LAC (000005 

IDIVS 

000004 

S2L 

hlt 

DAC 
SAD 
SKP 
HLT 

LACQ 

DAC FIMQ# 

SAO (000001 

SKP 

HLT 

JMS 

JMS 

LAC 

LMO 

LAC 

GSM 

LAC (0l?!0005 

lOIVS 

000004 

SZL 

HLT 

DAC FIAC 

SAO (000001 

SKP 

HLT /BAD 

LACQ 

DAC FIMQ 

SAO (777776 

SKP 

HLT 

JMS HLOOPS 

.EJECT 



LINK 



/BAD AC, GOOO=00000l 



/BAD MQ, GOOD=000001 
HLOOPS 
L00P2 
(000000 

(777776 



(2361) 



<2365) 



(2372) 



/BAD LINK. 



AC. GOOD=00000l 



/BAD MQ. G00D=777776 



(2405) 



(2411) 



(2416) 



FACE 39 


EAE-1 


I 




H3145 


104157 




03146 


?07212 




03147 


652000 




03150 


20:^154 




03151 


664000 




03152 


207324 




03153 


657323 




03154 


000004 




03155 


741400 




03156 


740040 




03157 


047156 




03160 


547321 




03161 


741000 




03162 


740040 




03163 


641002 




03164 


047157 




03165 


547321 




03166 


741000 




03167 


740040 




03170 


104130 




03171 


104157 




03172 


207212 




03173 


652000 




03174 


207323 




03175 


664000 




03176 


207324 




03177 


657323 




03200 


000004 




03201 


741400 




03202 


740040 




03203 


047156 




03204 


547321 




03205 


741000 




03206 


740040 




03207 


641002 




03210 


047157 




03211 


547213 




03212 


741000 




03213 


740040 




03214 


104130 



SIGNE 



SIGNF 



JMS 

LAC 

LMQ 

LAC 

GSM 

LAC 

IDIVS 

000004 

SZL 



L00P2 
(777777 

.♦4 

(777772 



/BAD 
FIAC# 
(777776 



HLT 
DAG 
SAO 

SKP 
HLT 

LACO 

DAG FIMQ# 

SAO (777776 

SKP 

HLT 

JMS 

JMS 

LAC 

LMQ 

LAC 

GSM 

LAC 



LINK 



/BAD AC, G00D=777776 



/BAD 
HLOOPS 
L00P2 
(777777 

(777773 



MQ, G00D=777776 



(2431) 



(2435) 



(2442) 



(777772 



IDIVS 

000004 

S2L 



HLT 

OAC 

SAD 

SKP 

HLT 

LACO 

DAC FIMQ 



/BAD 
FIAC 
(777776 



LINK. 



/BAD AC, G00Dr777776 



SAO 
SKP 
HLT 
JMS 



(000001 

/BAD MO, 



0000=000001 



(2455) 



(2461) 



(2466) 



HLOOPS 



■EJECT 



AGE 40 


FAE- 


II 




03215 


104157 




03216 


207211 




03217 


652000 




03220 


303224 




03221 


664000 




03222 


207322 




03223 


654323 




03224 


000004 




03225 


740400 




03226 


740040 




03227 


047156 




03230 


547325 




03231 


741000 




03232 


740040 




03233 


641002 




03234 


047157 




03235 


547215 




03236 


741000 




03237 


740040 




03240 


104130 




03241 


104157 




03242 


207210 




03243 


652000 




03244 


207321 




03245 


664000 




03246 


207322 




03247 


654323 




03250 


000001 




03251 


740400 




03252 


740040 




03253 


047156 




03254 


5 47-326 




03255 


741000 




03256 


740040 




03257 


641002 




03260 


047157 




03261 


547320 




03262 


741000 




03263 


740040 




03264 


104130 



/DIVIDE SIGN TEST FOIVS 
STFOVS JMS L0nP2 

LAC (000000 

LMO 

LAC. .+4 

GSM 

LAC (000005 

FRDIVS 

000004 

SNL 

hLT /BAD LINK 

OAC FIAC# 
SAO (777774 
SKP 
HLT 

LACQ 

DAC FIMQ# 
SAO (000003 
SKP 
HLT 
JMS 
SIGNG JMS 
LAC 
LMO 
LAC 
GSM 
LAC 

FRDIVS 
000001 
SNL 
HLT 
OAC 
SAD 
SKP 
HLT 

LACQ 

DAC FIMQ 

SAD (777775 

SKP 

HLT 

JMS HLOOPS 

.EJECT 



(2501) 



/BAD AC, G00D=777774 



(2505) 



/BAD MO, GOOD=000003 
HLOOPS 
L00P2 
(525252 

(777776 

(000005 



/BAD LINK 
FIAC 
(000016 



(2512) 



(2525) 



/BAC AC, GOOD = 000016 (2531) 



/BAD MQ, GOOD 



777775 (2536) 



PAGE 41 


EAE-1 


:i 




03265 


104157 




03266 


207206 




03267 


652000 




03270 


20^274 




03271 


664000 




03272 


207324 




03273 


654323 




03274 


000004 




03275 


740400 




03276 


740040 




03277 


047156 




03300 


547215 




03301 


741000 




03302 


740040 




03303 


641002 




03304 


047157 




03305 


547325 




03306 


741000 




03307 


740040 




03310 


104130 




03311 


104157 




03312 


207211 




03313 


652000 




03314 


207323 




03315 


664000 




03316 


207324 




03317 


654323 




03320 


000004 




03321 


740400 




03322 


740040 




03323 


047156 




03324 


547215 




03325 


741000 




03326 


740040 




03327 


641002 




03330 


047157 




03331 


547215 




03332 


741000 




03333 


740040 




03334 


104130 




03335 


104134 



SIGNH JmS L00P2 

LAC C2S2525 

LMQ 

LAC . + 4 

GSiM 

LAC (777772 

FRDIVS 

000004 

SNL 

HLT /BAD LINK (2551) 

HAC FIAC# 

SAD (0PI0003 

SKP 

HLT /BAD AC, GOOD = 000003 (2555) 

LACQ 

OAC FIMO# 

SAD (777774 

SKP 

HLT /BAD MO, G00D=777774 (2526) 

JMS HLOOPS 
SIGNI JMS L00P2 

LAC (000000 

LMQ 

LAC (777773 

GSM 

LAC (777772 

FRDIVS 

000004 

SNL 

HLT /BAD LINK (2575) 

DAC FIAC 

SAD (000003 

SKP 

HLT /BAD AC, GOOD=000003 (2601) 

LACQ 

DAC FIMQ 

SAO (000003 

SKP 

HLT /BAD MO, 0000=000003 (2606) 

JMS HLOOPS 

JMS HLOOPM 

.EJECT 



PAGE 42 EAE-II 



03336 


104162 


03337 


104157 


03340 


207212 


03341 


652000 


03342 


207210 


03343 


653122 


03344 


000001 


03345 


047156 


03346 


547211 


03347 


741000 


03350 


740040 


03351 


641002 


03352 


047157 


03353 


547210 


03354 


741000 


03355 


740040 


03356 


104130 


03357 


104157 


03360 


207212 


03361 


652000 


03362 


207212 


03363 


653122 


03364 


100000 


03365 


047156 


03366 


547247 


03367 


741000 


03370 


740040 


03371 


641002 


03372 


047157 


03373 


547327 


03374 


741000 


03375 


740040 


03376 


104130 



/MULTIPLY DIVIDE TEST 
/MULTIPLY TEST USING 22 SHIFTS 

JHS L00P4 
MULTST JMS L00P2 

LAC (777777 

LMq 

LAC (525252 

MUL 

000001 

OAC pIAC# 

sAO (000000 

SKP 

HLT /BAD AC, GOOD=000000 (2623) 

LACO 

OAC FIMQ# 

SAD (525252 

SKP 

HLT /BAD MQ, G000=525252 (2630) 

JMS HLOOPS 
MULA JMS L00P2 

LAC (777777 

LMQ 

LAC (777777 

MUL 

100000 

OAC FIAC 

SAD (077777) 

SKP 

HLT /BAD AC, GOOD=077777 (2643) 

LACQ 

OAC FIMQ 

SAO (700000 

SKP 

HLT /BAD MQ, GOOD=700000 (2650) 

JMS HLOOPS 

.EJECT 



AGE 43 


EAE- 


II 




03377 


104157 




03400 


207212 




03401 


65?000 




03402 


207210 




03403 


653122 




03404 


777777 




03405 


047156 




03406 


547330 




03407 


741000 




03410 


740040 




03411 


641002 




03412 


047157 




03413 


547331 




03414 


741000 




03415 


740040 




03416 


104130 




03417 


104157 




03420 


207212 




03421 


652000 




03422 


207212 




03423 


653122 




03424 


252525 




03425 


047156 




03426 


547332 




03427 


741000 




03430 


740040 




03431 


641002 




03432 


047157 




03433 


547333 




03434 


741000 




03435 


740040 




03436 


104130 



MULB JMS L00P2 

LAC (777777 

LMQ 

LAC (525252 

MUL 

777777 

DAC FIAC# 

SAD (525251 

SKP 

HLT /BAD AC, G000=S25251 (2663) 

LACQ 

DAC riMQ# 

SAD (252526 

SKP 

HLT /BAD MO, G00D=252526 (2670) 

JMS HLOOPS 
MULC JMS L00P2 

LAC (777777 

LMO 

LAC (777777 

MUL 

252525 

DAC FIAC 

SAD (252524) 

SKP 

HLT /BAD AC, G00D=252524 (2703) 

LACQ 

DAC riMQ 

SAD (525253) 

SKP 

HLT /BAD MQ, G00D=525253 (2710) 

JMS HLOOPS 

.EJECT 



PAGE 44 


EAF-: 


11 




03437 


104157 




P)3440 


207212 




03441 


652000 




03442 


207213 




03443 


653122 




03444 


777777 




03445 


047156 




03446 


547211 




03447 


741000 




03450 


740040 




03451 


641002 




03452 


047157 




03453 


547212 




03454 


741000 




03455 


740040 




03456 


104130 




03457 


104157 




03460 


207212 




03461 


652000 




03462 


207212 




03463 


653122 




03464 


000001 




03465 


047156 




03466 


547211 




03467 


741000 




03470 


740040 




03471 


641002 




03472 


047157 




03473 


547212 




03474 


741000 




03475 


740040 




03476 


104130 



03477 


104157 


03500 


207211 


03501 


652000 


03502 


207211 


03503 


640323 


03504 


000000 


03505 


047156 


03506 


547211 


03507 


741000 


03510 


740040 


03511 


641002 


03512 


047157 


03513 


547317 


03514 


741000 


03515 


740040 


03516 


104130 


03517 


104157 


03520 


207212 


03521 


652000 



MULO 



MULE 



/PDP-15 

/ 

/DIVIDE 

/ 

OIVTST 



DIVA 



L00P2 
(777777 

(000001 



JMS 

LAC 

LMO 

LAC 

MUL 

777777 

DAC pIAC# 

sAD (000000) 

SKp 

HLT /BAD 

LACQ 

DAC FIMQ# 

SAD (777777) 

SKP 

HLT 

JMS 

JMS 

LAC 

LMO 

LAC 

MUL 

000001 

DAC FIAC 

SAD (000000 

SKP 

HLT /BAD 

LACQ 

DAC FIMQ 

(777777 



/BAD 
HLOOPS 
L00P2 
(777777 

(777777 



AC, GOOD=000000 



MO, 0000=777777 



(2723) 



(2730) 



SAD 
SKP 
HLT 
JMS 
EAE II 



/BAD 
HLOOPS 
- TAPE 



AC, GOOO=000000 



MO, G00DS777777 



(2743) 



(2750) 



TEST USING 23 SHIFTS 



L00P2 
(000000 

(000000 



JMS 

LAC 

LMO 

LAC 

DIV 

000000 

DAC FIAC# 

SAD (000000 

SKP 

HLT /BAD 

LACQ 

DAC FIM0# 

SAD (000002 

SKP 

HLT 

JMS 

JMS 

LAC 

LMQ 



/BAD 
HLOOPS 
L00P2 
(777777 



AC, GOOD=000000 



MQ, GOOD=000002 



(2763) 



(2770) 



PAGE 45 EAE- 


I I 


f)3522 


207334 


03523 


640323 


f13524 


000000 


03525 


047156 


03526 


547253 


03527 


741000 


03530 


740040 


03531 


641002 


03532 


047157 


03533 


547321 


03534 


741000 


03535 


740040 


03536 


104130 



LAC (677777 

niv 
000000 

OAC FIAC 

SAO (377777 

SKP 

HLT 

LACQ 

DAC FIMQ 

SAD (777776 

SKP 

HLT 

JMS HLDOPS 

.EJECT 



/BAD AC, G00D=377777 (3003) 



/BAD MO, G000=777776 (3010) 



PAGE 4f 


) EAE- 


■11 




03537 


104157 




0354PI 


P07212 




K3541 


65?kJ00 




03542 


207334 




03543 


640323 




03544 


000001 




03545 


047156 




03546 


547335 




03547 


741000 




03550 


740040 




03551 


641002 




03552 


047157 




03553 


547321 




03554 


741000 




03555 


740040 




03556 


104130 




03557 


104157 




03560 


207211 




03561 


652000 




03562 


207211 




03563 


640323 




03564 


000001 




03565 


047156 




03566 


547211 




03567 


741000 




03570 


740040 




03571 


641002 




03572 


047157 




03573 


547211 




03574 


741000 




03575 


740040 




03576 


104130 



niVB JMS L00P2 

LAH (777777 

LMQ 

LAC (677777 

DIV 

000001 

OAC pIACjK 

SAD (377771 

SKp 

HLT /BAD AC, G00D=37777i (3023) 

LACQ 

OAC riMQtf 

SAD (777776 

SKP 

HLT /BAD MO, 0000=777776 (3030) 

JMS HLOOPS 
Dive JMS L00P2 

LAC (0PI0000 

LMQ 

LAC (000000 

DIV 

000001 

OAC FIAC 

SAD (000000 

SKp 

HLT /BAD AC, GOOD=000000 (3043) 

LACQ 

DAC FIMQ 

SAD {0^10000) 

SKP 

HLT /BAD MO, GOODr000000 (3050) 

JMS HLOOPS 

.EJECT 



PAGE 47 


EAE-! 


I 




03577 


104157 




03600 


207334 




03601 


652000 




?3602 


207211 




03603 


640323 




03604 


677777 




03605 


047156 




03606 


547211 




03607 


741000 




03610 


740040 




03611 


641002 




03612 


047157 




03613 


547213 




03614 


741000 




03615 


740040 




03616 


104130 




03617 


104157 




03620 


207333 




03621 


652000 




03622 


207332 




03623 


640323 




03624 


252525 




03625 


047156 




03626 


547211 




03627 


741000 




03630 


740040 




03631 


641002 




03632 


047157 




03633 


547212 




03634 


741000 




03635 


740040 




03636 


104130 



DIVD 



DIVE 



JMS L00P2 




/SUB-SUB 


LAC (677777 






LMQ 






LAC (0^10000 






DIV 






677777 






DAC riAC# 






SAD (0(^0000 






SKP 






HLT /BAD 


AC, 


GOOD = (10PI000 


LACQ 






DAC FIMQ# 






SAD (0f1000l 






SKP 






HLT /BAD 


MQ, 


GOODr000001 


JMS HLOOPS 






JMS L00P2 




/ADD-ADD 


LAC (525253) 






LMQ 






LAC (252524) 






DIV 






252525 






DAC FIAC 






SAD (000000 






SKP 






HLT /BAD 


AC. 


0000=000000 


LACQ 






DAC riMQ 






SAD (777777 






SKP 






HLT /BAD 


MQ, 


G00D=777777 


JMS HLOOPS 







(3063) 



(3070) 



(3103) 

(3110) 
)OPS 
.EJECT 



PAGE 48 


EAE- 


II 




03637 


104157 




P)3640 


207333 




03641 


652000 




03642 


207332 




03643 


640323 




03644 


777777 




03645 


047156 




03646 


547211 




03647 


741000 




03650 


740040 




03651 


641002 




03652 


047157 




03653 


547206 




03654 


741000 




03655 


740040 




03656 


104130 




03657 


104157 




03660 


207331 




03661 


652000 




03662 


207330 




03663 


640323 




03664 


777777 




03665 


047156 




03666 


547211 




03667 


741000 




03670 


740040 




03671 


641002 




03672 


047157 




03673 


547210 




03674 


741000 




03675 


740040 




03676 


104130 




03677 


104134 




03700 


104162 



DIVF JMS L00P2 /ADD-SUB-ADD-SUB 

LAC (5?5253) 
LMO 
LAC (252524) 

niv 

777777 

HAC pIAC# 

gAD (000000 

SKp 

HLT /BAD AC, GOOO:000000 (3123) 

LACQ 

DAC FIHQ# 

SAO (252525 
SKP 

HLT /BAD MQ, 0000=252525 (3130) 
JMS HLOOPS 
DIVG JMS L00P2 

LAC (252526 /ADD-SUB-ADD-SUB 

LMO 

LAC (525251 

DIV 

777777 

DAC FIAC 

SAD (0) 

SKP 

HLT /BAD AC, 0000=000000 (3143) 

LACQ 

DAC FIMQ 

SAD (525252 

SKP 

HLT /BAD MQ, 0000=525252 (3150) 

JMS HLOOPS 

JMS HLOOPM 

JMS L00P4 

.EJECT 



PAGE 49 



FAE-I I 



AND OlV INSTRUCTION DONE BACK TO BACK 



03701 


104157 


03702 


207212 


03703 


652000 


03704 


207206 


03705 


673102 


03706 


777777 


03707 


673102 


03710 


777777 


03711 


673102 


03712 


777777 


03713 


673102 


03714 


777777 


03715 


673102 


03716 


777777 


03717 


047156 


03720 


547214 


03721 


741000 


03722 


740040 


03723 


641002 


03724 


047157 


03725 


547336 


03726 


741000 


03727 


740040 


03730 


207206 


03731 


653122 


03732 


520000 


03733 


653122 


03734 


520000 


03735 


653122 


03736 


520000 


03737 


653122 


03740 


520000 


03741 


653122 


03742 


520000 


03743 


047156 


03744 


547337 


03745 


741000 


03746 


740040 


03747 


641002 


03750 


047157 


03751 


547340 


03752 


741000 


03753 


740040 


03754 


104130 



/MUL 
/ 

/SPEED MULTIPLY 
HSPEED JMS L0OP2 

LAC (777777 

LMO 

LAC (252525 

MUL -20 

777777 

MUL -20 

777777 

MUL -20 

777777 

MUL -20 

777777 

MUL -20 

777777 

OAC FlAC* 

SAD (577777) 

SKp 

HLT /BAD 

LACQ 

OAC FIMQ# 

SAD (337777) 

SKP 

HLT 

LAC 

«UL 

520000 

MUL 

520000 

MUL 

520000 

MUL 

520000 

MUL 

520000 

DAC FIAC 

SAD (024613) 

SKp 

HLT /BAD 

LACO 

DAC FIMQ 

(140000) 



/BAD 
(252525 



AC, G00D=577777 



MO, G000=337777 



(3175) 



(3202) 



AC. 0000=024613 



SAO 
SKP 
HLT 
JMS 



HLOOPS 



/BAD MO, 0000=140000 



(3221) 



(3226) 



.EJECT 



PAGE 50 



EAE-I I 



03755 


I04I57 


03756 


207212 


03757 


652000 


03760 


207206 


03761 


660302 


03762 


000002 


03763 


660302 


03764 


000002 


03765 


660302 


03766 


000002 


03767 


660302 


03770 


000002 


03771 


660302 


03772 


000002 


03773 


047156 


03774 


547341 


03775 


741000 


03776 


740040 


03777 


641002 


04000 


047157 


04001 


547342 


04002 


741000 


04003 


740040 


04004 


104130 


04005 


104157 


04006 


207206 


04007 


652000 


04010 


207206 


04011 


640323 


04012 


000052 


04013 


640323 


04014 


000052 


04015 


640323 


04016 


000052 


04017 


640323 


04020 


000052 


04021 


640323 


04022 


000052 


04023 


047156 


04024 


547343 


04025 


741000 


04026 


740040 


04027 


641002 


04030 


047157 


04031 


547344 


04032 


741000 


04033 


740040 


04034 


104130 



/ 

OSPEFD 



/SPEED DIVIDE 

JMS LOOP2 

LAC (777777 

LMQ 

LAC (252525 

DIV -21 

000002 

DiV -21 

000002 

OIV -21 

000002 

DiV -21 

0000002 

DIV -21 

000002 

DAC FIAC 

SAO (525005 

SKP 

HLT 

LACQ 

DAC FIMQ 

SAD (777252 

SKP 

HLT 

JMS HLOOPS 

JMS L00P2 

LAC (252525 

LMQ 

LAC (252525 

DIV 

000052 

DIV 

000052 

DIV 

000052 

DIV 

000052 

DIV 

000052 

DAC FIAC 

SAD (002651 

SKP 

HLT 

LACQ 

DAC FIMQ 

SAD (253252 

SKP 

HLT 

JMS HLOOPS 

.EJECT 



/BAD AC, GOOO=525005 (3251) 



/BAD MQ, G000=777252 (3256) 



/BAD AC, [;OOD = 00265l (3301) 



/BAD MQ, G00D=253252 (3306) 



F7SGE 51 



EAe-i I 



/SPEED MULTIPLY AND DIVIDE 



04PI35 


/ 

104157 SPMUDV JMS L00P2 


04036 


P07212 


LAC (777777 


04037 


652000 


LMQ 


04040 


?07251 


LAC (177777 


04041 


664000 


GSM 


04042 


653122 


MUL 


04043 


252525 


252525 


04044 


640323 


DIV 


04045 


252525 


252525 


04046 


047156 


OAC FIAC 


04047 


547211 


SAD (0) 


04050 


741000 


SKp 


04051 


740040 


HLT /B 


04052 


641002 


LACQ 


04053 


047157 


DAC riMQ 


04054 


547251 


SAO (177777) 


04055 


741000 


SKP 


04056 


740040 


HLT /B 


04057 


104130 


JMS HLOOPS 


04060 


104157 


JMS L00P2 


04061 


207247 


LAC (077777 


04062 


653122 


MUL 


04063 


252525 


252525 


04064 


640323 


DIV 


04065 


000025 


000025 


04066 


653122 


MUL 


04067 


252525 


252525 


04070 


640323 


DIV 


04071 


000025 


000025 


04072 


653122 


MUL 


04073 


252525 


252525 


04074 


640323 


DIV 


04075 


000252 


000252 


04076 


653122 


MUL 


04077 


252525 


252525 


04100 


640323 


oiv 


04101 


000252 


000252 


04102 


653122 


MUL 


04103 


252525 


252525 


04104 


640323 


DIV 


04105 


000052 


000052 


04106 


047156 


DAC FIAC 


04107 


547345 


SAD (405476 


04110 


741000 


SKp 


04111 


740040 


HLT 


04112 


641002 


LACQ 


04113 


047157 


OAC FIMQ 


04114 


547346 


SAD (117162 


04115 


741000 


SKP 


04116 


740040 


HLT 


04117 


104130 


JMS HLOOPS 


04120 


104134 


JMS HLOOPM 


04121 


741000 


SKP 



/BAD AC, 0000=000000 



/BAD MO, G0OD=i77777 



(3324) 



(3331) 



/BAD AC, GOOD=405476 (3364) 



/BAD MO, G00D=117162 (3371 
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.EJECT 
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EAE-II 



04122 nn?i% 

04123 444122 

04124 600246 

04125 207347 

04126 044122 

04127 620203 



LOOP* 



IS? .-1 
JMP NEAE 
LAC (777700 
OAC LOOPA 
JMP« AHVP 
.EJECT 
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0002^ 



^INCREMENT ERROR LOCATION ON ERROR 
/ 

,LOC 2^ 
/ 



00020 


740040 


00021 


750001 


00022 


340020 


00023 


040025 


00024 


741000 


00025 


740000 


00026 


460025 


00027 


620020 


04I30 




04130 


740040 


04131 


104202 


04132 


104226 


04133 


624130 


04I34 


740040 


04135 


104212 


04136 


104234 


04137 


624134 


04I40 


740040 


04141 


104143 


04142 


624140 


04143 


740000 


04144 


750004 


04145 


507350 


04146 


741200 


04147 


624164 


04150 


624143 


04151 


740040 


04152 


750004 


04153 


507254 


04154 


740200 


04155 


740040 


04156 


624151 


04157 


000000 


04160 


744000 


04161 


624157 


04162 


000000 


04163 


624162 


04164 


000000 


04165 


624164 





HLT 




CLA!CMA 




TAD 20 




DAC .+? 




SKp 




NOP 




ISZ. .-1 




JMP« 20 


/ 




/SMALL 


LOOP HALT 




.LOG LOOPA+6 


HLOOPS 


HLT 




JMS HLTS 




JMS LOOPS 




JMP» HLOOPS 


/ 




/MEDIUK 


1 HLT LOOP 


HLOOPM 


HLT 




JMS HLTM 




JMS LOOPM 




JMP» HLOOPM 


/ 




/LARGE 


HLT LOOP 


HLOOPL 


HLT 




JMS LOOPL 




JMP» HLOOPL 


/ 




LOOPL 


NOP 




LAS 




AND (010000 




SNA 




JMP» L00P5 




JMP« LOOPL 


/ 




SWIT6 


HLT 




LAS 




AND (400000 




SZA 




HLT 




JMP« SW1T6 


/ 




L00P2 







CLL 




JMP» .-2 


/ 




LOOP4 







JMP» .-1 


L00P5 







JMP» .-1 




.EJECT 



/SUBTRACT 1 FROM (20) 



/ERROR LOCATION 

/INCREMENT 

/EXIT 



/SWITCH 5 NOT SET 

/LOOP 
/CONTINUE 



/SWITCH ZERO 

/PRINT ROUTINE 

/CONTINUE 



/SCOPE LOOP TAG 
/SUBROUTINE TAG 
/ROUTINE TAG 
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04166 


104166 




04167 


044200 




04170 


?24166 




04171 


f 4 4 2 1 




04172 


204200 




04173 


740001 




04174 


524201 




04175 


344200 




04176 


444166 




04177 


624166 




04200 


000000 




04201 


000000 




04202 


740000 




04203 


750004 




04204 


507351 




04205 


741200 




04206 


604211 




04207 


204202 




04210 


740040 




04211 


624202 




04212 


740000 




04213 


750004 




04214 


507352 




04215 


740200 




04216 


740040 




04217 


624212 




04220 


740000 




04221 


750004 




04222 


507353 




04223 


740200 




04224 


740040 




04225 


624220 




04226 


740000 




04227 


750004 




04230 


507354 




04231 


744200 




04232 


624157 




04233 


624226 




04234 


740000 




04235 


750004 




04236 


507355 




04237 


740200 




04240 


624162 




04241 


624234 



lOR 


JMS . 




DAC ,+11 




LAC» lOR 




DAC .+10 




LAC .+is 




CMA 




ANO» .+5 




TAD .+3 




ISZ lOR 




JMP» lOR 












/ 




HLTS 


NOP 




LAS 




And (200000 




SNA 




JMP .+3 




LAC HLTS 




HLT 




JMP« HLTS 


/ 




HLTM 


NOP 




LAS 




AND (040000 




SZA 




HIT 




JMP« .-5 


/ 




HLTL 


NOP 




LAS 




AND (004000 




SZA 




HLT 




JMP« .-5 


/ 




LOOPS 


NOP 




LAS 




AND (100000 




SEAICLL 




JMP» L00P2 




JMP« LOOPS 


/ 




LOOPM 


NOP 




LAS 




AND (020000 




SEA 




JMp« L00P4 




JMP» LOOPM 




.EJECT 



/swi 



/CONTINUE 



/SW3 



/CONTINUE 



/SW6 



/CONTINUE 



/SWITCH 2 



/LOOP 
/CONTINUE 



/SWITCH 4 
/SWITCH 4 



/LOOP 
/CONTINUE 
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0424? 


74Pi^?l0 




f)4243 


75Hi^04 




04244 


507356 




04245 


741^200 




04246 


444242 




04247 


624242 




04250 


740000 




04251 


205023 




04252 


047142 




04253 


207357 




04254 


044255 




04255 


204376 




04256 


047145 




04257 


167145 




04260 


444255 




04261 


447142 




04262 


604255 




04263 


624250 




04264 


740000 




04265 


205023 




04266 


047142 




04267 


207360 




04270 


044271 




04271 


204376 




04272 


047145 




04273 


207361 




04274 


067145 




04275 


444271 




04276 


447142 




04277 


604271 




04300 


624264 




04301 


740000 




04302 


204376 




04303 


047145 




04304 


227145 




04305 


741200 




04306 


604313 




04307 


207155 




04310 


104166 




04311 


740040 




04312 


064311 




04313 


444302 




04314 


624301 



/LOOK UP OR HALT 
SWIT7 NOP 

LAS 

AND (0M2000 

SZA 

IS2 SWIT7 

JMP» SylT7 
/ 

/FILL ERROR LOCATIONS WITH ZERO 
FILZER NOP 

LAC LENGTH 

OAC ADDCT# 

LAC (LAC ERWOR 

DAC .+1 

LAC ErwOr 

OAC CTA00# 

OZM« CTaDD 

IS? .-3 

ISZ ADDCT 

JMP .-5 

JMP» FILZER /EXIT 



/FILL ERROR LOCATION WITH HLT 
FILHLT NOP 

LAC LENGTH 

DAC ADDCT 

LAC (LAC ERWOR 

DAC .+1 

LAC ErwOr 

DAC CTADD 

LAC (HLT 

DAC» CTaDO 

ISZ .-4 

ISZ ADDCT 

JMP .-6 

JMP» FILHLT 



/SWITCH 7 

/IF SET Go To P+2 

/IF NOT SET GO TO P+i 



/FIELD COUNTER 



/CURRENT ADDRESS 



/FIELD COUNTER 
/ADDRESS OF LHE 

/CURRENT ADDRESS 

/EXIT 



/SET BIT IN BITWORD IF ERROR 
SETBIT NOP 

LAC ERWOR 

DAC CTADO 

LACe CTADD 

SNA 

JMP .+5 

LAC FRR8IT# 

JMS lOR 

XX 

DAC» .-1 

ISZ SETBIT+1 

JMP» SETBIT 

.EJECT 



/CURRENT ADDRESS OF ERROR WORD 



/MODIFIED 
/EXIT 
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043l'5 


74(^000 




04316 


75P000 




04317 


P47154 




04320 


047143 




04321 


205023 




0432? 


047142 




04323 


207362 




04324 


044325 




04325 


204376 




04326 


047145 




04327 


227145 




04330 


547211 




04331 


604336 




04332 


547363 




04333 


741000 




04334 


447143 




04335 


447154 




04336 


444325 




04337 


447142 




04340 


604325 




04341 


624315 




04342 


7400.00 




04343 


207154 




04344 


741200 




04345 


625024 




04346 


624342 




04347 


740000 




04350 


207364 




04351 


044311 




04352 


207365 




04353 


047144 




04354 


207254 




04355 


047155 




04356 


207366 




04357 


044302 




04360 


205023 




04361 


047142 




04362 


624347 



/SCAN FOR 00 OR 77 SET FLAG ON ERROR 



SCAN 


NOP 




CLA 




DAG ERFLAG 




DAC ASTRIC 




LAC LENGTH 




DAC ADOCT 




LAC (LAC ERWOR 




DAC .+1 




LAC ErwOr 




DAC CTaOD 




LAC» CTAOO 




SAD (0 




JMF .+5 




SAd (100 /CHE 




SKp 




IS? ASTRIC* 




IS? ERFLAGO 




IS2 .-11 




ISZ ADDCT 




JMP .-13 


t 


JMP» SCAN 


/ 

/CHECK 


FLAG 


CKFLAG 


NOP 




LAC ERFLAG 




SWA 




JMP» BEGIN 




JMP« CKFLAG 


/SET UP 


COUNTS AND COUNTl 


SETUP 


NOP 




LAC (WORDA 




DAC SETBIT+10 




LAC (777755 




DAC BITCT 




LAC (400000 




DAC ERRbIT 




LAC (lAC ERWOR 




DAC sEtBIt+1 




LAC LENGTH 




DAC ADDCT 




JMP» SETUP 




.EJECT 



/CHECK FOR ZERO 
/YES 



FOR 100 



/INTERMITTENT 
/SET FLAG 



/HOW MANY TEST FAILED 



/NO ERROR 
/# OF BIT WORDS 



/iST BIT STORAGE LOCATION 
/CURRENT WORD ADESS 

/BIT COUNTER 

/INITIAL BIT 
/CURRENT BIT POSITION 
/LHE ADDRESS OF FjElD 
/COUNTER 

/LENGTH OF FIELD 
/FIELD COUNTER 

/EXIT 
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EAF-II 







/ROTATE 

/ 


BIT AND CHECK WORD COUNT 


04363 


740000 


r 

RBCW 


NOP 


04364 


207155 




LAC ERRBIT 


04365 


740020 




RAR 


04366 


447144 




IS? BITCT# 


04367 


604374 




JMP .+5 


04370 


444311 




IS? SETBIT+10 


04371 


207365 




LAC (777755 


04372 


047i44 




OAC BITCT 


04373 


207254 




LAC (400000 


04374 


047155 




OAC ERRBIT 


04375 


624363 




JMP» R9CW 
.EJECT 
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04376 


000263 




PI4377 


000267 




04400 


000305 




04401 


PI00311 




04402 


000327 




04403 


000333 




04404 


000351 




04405 


000355 




04406 


000373 




04407 


000377 




04410 


000415 




04411 


000421 




04412 


000436 




04413 


000442 




04414 


000460 




04415 


P)00464 




04416 


000502 




04417 


000506 




04420 


000524 




04421 


000530 




04422 


000546 




04423 


000552 




04424 


000570 




04425 


000574 




04426 


000612 




04427 


000616 




04430 


000634 




04431 


000640 




04432 


000656 




04433 


000662 




04434 


000700 




04435 


000704 




04436 


000722 




04437 


000726 




04440 


000745 




04441 


000751 




04442 


000767 




04443 


000773 




04444 


001011 




04445 


001015 




04446 


001033 




04447 


001037 




04450 


001055 




04451 


001061 




04452 


001076 




04453 


001102 




04454 


001120 




04455 


001124 



ERWOR 



NEAE 15 
MEAE 21 
NEAE 37 
NEAE 43 
NEAE 61 
NEAE 65 
NEAE li^3 
NEAE 107 
NEAB 13 
NEAB 17 
NEAB 35 
NEAB 41 
NEAB 56 
NEAB 62 
NEAB 100 
NEAB 104 
NMUL 13 
NMUL 17 
NMUL 35 
NMUL 41 
NMUL 57 
NMUL 63 
NMUL 101 
NMUL 105 
NMULS 13 
NMULS 17 
NMULS 35 
NMULS 41 
NMULS 57 
NMULS 63 
NMULS 101 
NMULS 105 
NOIV 13 
NDIV 17 
NDIV 36 
NOIV 42 
NDIV 60 
NDIV 64 
NDIV 102 
NDIV 106 
NDIVS 13 
NDIVS 17 
NDIVS 35 
NDIVS 41 
NDIVS 56 
NDIVS 62 
NDIVS 100 
NDIVS 104 
.EJECT 
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PI4456 
04457 

0446H 
04461 
04462 
04463 
04464 
04465 
04466 
04467 
04470 
04471 
04472 
04473 
04474 
04475 
04476 
04477 
04500 
04501 
04502 
04503 
04504 
04505 
04506 
04507 
04510 
04511 
04512 
04513 
04514 
04515 
04516 
04517 
04520 
04521 
04522 
04523 
04524 
04525 
04526 
04527 
04530 
04531 



P)01142 
001146 
P)01164 
001170 
001206 
001212 
001230 
001234 
001252 
001256 
001274 
001300 
001316 
001322 
001340 
001344 
001362 
001366 
001404 
001410 
001426 
001432 
001450 
001454 
001472 
001476 
001514 
001520 
001536 
001542 
001560 
001564 
00l60fl 
001605 
001610 
001621 
001626 
001631 
001642 
001647 
001652 
001663 
001670 
001673 



NIDIV 

NIDIV 

NIOIV 

NIOIV 

NIDIV 

NIOIV 

NIOIV 

NIDIV 

NIOIVS 

NIOIVS 

NIDIVS 

NIOIVS 

NIOIVS 

NIOIVS 

NIDIVS 

NIOIVS 

NFROIV 

NFROIV 

NFROIV 

NFROIV 

NFROIV 

NFROIV 

NFROIV 

NFROIV 

NFRDVS 

NFROVS 

NFRDVS 

NFROVS 

NFRDVS 

NFROVS 

NFROVS 

NFROVS 

SHCTl 

SHCTl 

SHCTl 

SHCT2 

SHCT2 

SHCT2 

SHCT3 

SHCT3 

SHCT3 

SHCT4 

SHCT4 

SHCT4 

.EJECT 



13 

17 

35 

11 

57 

63 

101 

105 

13 

17 

35 

41 

57 

63 

101 

105 

13 

17 

35 

41 

57 

63 

101 

105 

13 

17 

35 

41 

57 

63 

101 

105 
7 

14 
17 
7 

14 
17 
7 

14 
17 
7 

14 
17 
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04532 


001704 




04533 


001711 




04534 


001714 




04535 


001725 




04536 


001732 




04537 


001735 




04540 


001746 




04541 


001753 




04542 


001756 




04543 


001767 




04544 


001774 




04545 


001777 




04546 


002010 




04547 


002015 




04550 


002020 




04551 


002031 




04552 


002036 




04553 


002041 




04554 


002052 




04555 


002057 




04556 


002062 




04557 


002073 




04560 


002100 




04561 


002103 




04562 


002114 




04563 


002121 




04564 


002124 




04565 


002135 




04566 


002142 




04567 


002145 




04570 


002156 




04571 


002163 




04572 


002166 




04573 


002177 




04574 


002204 




04575 


002207 




04576 


002220 




04577 


002225 




04600 


002230 




04601 


002241 




04602 


002246 




04603 


002251 



SHCT5 7 
SHCT5 14 
SHCT5 17 
SHCT6 7 
SHCT6 14 
SHCT6 17 
SHCT7 7 
SHCT7 14 
SHCT7 17 
SHCT10 7 
SHCT10 14 
SHCT10 17 
SHCTll 7 
SHCTli 14 
SHCTll 17 
SHCT12 7 
SHCT12 14 
SHCT12 17 
SHCT13 7 
SHCT13 14 
SHCT13 17 
SHCT14 7 
SHCT14 14 
SHCT14 17 
SHCT15 7 
SHCT15 14 
SHCT15 17 
SHCT16 7 
SHCT16 14 
SHCT16 17 
SHCT17 7 
SHCT17 14 
SHCT17 17 
SHCT20 7 
SHCT20 14 
SHCT20 17 
SHCT21 7 
SHCT21 14 
SHCT21 17 
SHCT22 7 
SHCT22 14 
SHCT22 17 



.EJECT 
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04604 


002266 




(?14605 


002273 




PI4606 


002306 




04607 


002313 




04610 


002326 




04611 


002333 




04612 


002346 




04613 


002353 




04614 


002366 




04615 


002373 




04616 


002406 




04617 


002413 




04620 


002426 




04621 


002433 




04622 


002446 




04623 


002453 




04624 


002466 




04625 


002473 




04626 


002506 




04627 


002513 




04630 


002526 




04631 


002533 




04632 


002546 




04633 


002553 




04634 


002566 




04635 


002573 




04636 


002606 




04637 


002613 




04640 


002626 




04641 


002633 




04642 


002646 




04643 


002653 




04644 


002666 




04645 


002673 




04646 


002705 




04647 


002714 




04650 


002724 




04651 


002734 




04652 


002743 




04653 


002753 




04654 


002766 




04655 


002772 




04656 


002777 




04657 


003012 




04660 


003016 




04661 


003023 



DSCl 10+1 

nsci 15+1 

DSCl 27+2 
OSCl 34+2 
DSCl 46+3 
DSCl 53+3 
DSCl 65+4 
DSCl 72+4 
DSCl 104+5 
DSCl 111+5 
DSCl 123+6 
DSCl 130+6 
DSCl 142+7 
DSCl 147+7 
DSCl 161+10 
DSCl 166+10 
OSCl 200+11 
DSCl 205+11 
DSCl 217+12 
DSCl 224+12 
DSCl 236+13 
DSCl 243+13 
DSCl 255+14 
DSCl 262+14 
OSCl 274+15 
DSCl 301+15 
nSCl 313+16 
DSCl 320+16 
DSCl 332+17 
OSCl 337+17 
DSCl 351+20 
OSCl 356+20 
DSCl 370+21 
DSCl 375+21 
STMUL 6 
STMUL 15 
STMULS 6 
STMULS 16 
STMULS 25 
STMULS 35 
STDIVS 11 
STDIVS 15 
STDIVS 22 
SIGNA 11 
SIGNA 15 
SIGNA 22 
.EJECT 



n^GE 63 



EAT- 


II 


04662 


003036 


04663 


7107042 


04664 


5^03^47 


04665 


CI03062 


04666 


003066 


04667 


003073 


04670 


003106 


04671 


003112 


04672 


003117 


04673 


003132 


04674 


003136 


04675 


003143 


04676 


003156 


04677 


003162 


04700 


003167 


04701 


003202 


04702 


003206 


04703 


003213 


04704 


003226 


04705 


003232 


04706 


003237 


04707 


003252 


04710 


003256 


04711 


003263 


04712 


003276 


04713 


003302 


04714 


003307 


04715 


003322 


04716 


003326 


04717 


003333 


04720 


003350 


04721 


003355 


04722 


003370 


04723 


003375 


04724 


003410 


04725 


003415 


04726 


003430 


04727 


003435 


04730 


003450 


04731 


003455 


04732 


003470 


04733 


003475 


04734 


003510 


04735 


003515 


04736 


003530 


04737 


003535 


04740 


003550 


04741 


003555 


04742 


003570 


04743 


003575 



SIGNB 11 
SIGNR 15 
SIGNB ?2 
SIGNC 11 
SIGNC 15 
SIGNC 22 
STIOVS 11 
STIOVS 15 
STIOVS 22 
SIGND 11 
SIGNO 15 
SIGNO 22 
SIGNE 11 
SIGNE 15 
SIGNE 22 
SIGNF 11 
SIGNF 15 
SIGNF 22 
STFDVS 11 
STFOVS 15 
STFDVS 22 
SIGNG 11 
SIGNG 15 
SIGNG 22 
SIGNH 11 
SIGNH 15 
SIGNH 22 
SIGNI 11 
SIGNI 15 
SIGN! 22 
MULTST 11 
MULTST 16 
MULA 11 
MULA 16 
MULB 11 
MULB 16 
MULC 11 
MULC 16 
MULO 11 
MULD 16 
MULE 11 
MULE 16 
DIVTST 11 
DIVTST 16 
DIVA 11 
DIVA 16 
DIVB 11 
OIVB 16 
Dive 11 
nivc 16 
.EJECT 
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04744 


003610 




04745 


003615 




f)4746 


003630 




04747 


003635 




04750 


003650 




04751 


003655 




04752 


003670 




04753 


003675 




04754 


003722 




04755 


003727 




04756 


003746 




04757 


003753 




04760 


003776 




04761 


004003 




04762 


004026 




04763 


004033 




04764 


004051 




04765 


004056 




04766 


004111 




04767 


004H6 




04770 


004116 




04771 


004116 




04776 






04776 


000000 




05023 






05023 


777406 



DIVD 11 
OlVD 16 
niVE 11 
niVE 16 

niVF 11 

niVF 16 

DIVG It 

OIVG 16 

MSPEED 21 

MSPEED 26 

MSPEEO 45 

MSPEED 52 

DSPEEO 21 

DSPEED 26 

OSPEED 51 

OSPEEO 56 

SPMUOV 14 

SPMUOV 21 

SPMUOV 54 

SPMUOV 61 

SPMUOV 61 

SPMUOV 61 

.LOC ERWOR+400 
WOROA /BUFFER TOR BIT WORDS 

.LOC WORDA+25 
LENGTH 777406 

.EJECT 
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11 




i?)5024 


740000 




5)5025 


74PI000 




05026 


605047 




05027 


605031 




0503i?i 


000000 




05031 


104250 




05032 


105052 




05033 


100203 




05034 


104315 




05035 


104342 




05036 


205023 




05037 


045030 




05040 


104347 




05041 


104301 




05042 


104363 




05043 


445030 




05044 


605041 




05045 


105064 




05046 


625024 




05047 


104264 




05050 


100203 




05051 


625024 




05052 


740040 




05053 


207364 




05054 


045063 




05055 


207370 




05056 


165063 




05057 


545063 




05060 


625052 




05061 


445063 




05062 


605056 




05063 


000000 



BEGIN 



LOOKUP 



/ 

FACT 



NOP 
NOP 
JMP 
JMP 



JMS 

JMS 

JMs 

JMS 

JMS 

LAC 

OAC 

JMS 

JMS 

JMS 

IS2 

JMP 

JMS 

JMP« 

JMS 
JMS 
JMP* 



FACT 
LOOKUP 



FILEeR 
CLBUF 
ADvP 
SCAN 
CKFLAG 
LENGTH 
LOOKUP-l 
SETUP 
SETBIT 
RBCW 

LOOKUP-i 
.-3 

STaBUF 
BEGIN 

FILHLT 
AOVP 
BEGIN 



/CL BUFFER 
CLBUF 



HLT 
LAC 
OAC 

LAC 

dZM» 

SAD 

JMP» 

IS2 

JMp 



.EJE 



(WORDA 
CLBUF+ll 
(WORDA+24 
CLBUF+ll 
CL8UF*11 

CLBUF 
CLBUF+ll 
.-4 

CT 



/WAS JMS SWlT7(NnT USED) 
/HERF IF NOT SFT 
/HERE IF SET 

/COUNTER 

/FILL ERROR LOK WITH CAL 
/CL BUFFER 

/GO tO MuL, DIv ROUTINES 
/SCAN FOR C50 OR 77 FLAG ANY ERROR 



/SET UP cOUNTE AND COUNTERS 

/SET BIT IF ERROR 

/ROTATE BIT AND CHECK WORD 



/PRINT OUT ERROR STATUS 



/RHE 

/LHE 

/DEPOSIT ZEROS 

/RHE=LHE 

/EXIT YES 
/NO 
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05064 


7401340 


C15065 


107026 


05066 


105110 


05067 


105144 


05070 


105126 


05071 


105412 


0507? 


205125 


05073 


105314 


05074 


105345 


05075 


205143 


05076 


105314 


<i>'><lill 


105345 


05100 


205162 


05101 


105314 


05102 


207143 


05103 


741200 


05104 


625064 


05105 


765724 


05106 


105225 


05107 


625064 



05110 


740040 


05111 


750001 


05112 


045125 


05113 


207371 


05114 


045115 


05115 


204776 


05116 


505125 


05117 


045125 


05120 


207372 


05121 


545115 


05122 


625H0 


05123 


445115 


05124 


605115 


05125 


000000 



/ROUTINE TO PRINT ERROR BUFFER 
/ 

sta8uf hlt 

jms print 

JMS ANneUF 
JMS lORBUF 
JMS TADBUF 

tin 

lac anobuf+15 

JMS OPS 

TYT 

LAC TADBUF+15 

JMS OPS 

TYT 

LAC I0RBUr+l6 

JMS OPS 

LAC ASTRIC 

SNA 

JMP» STABUF 

LAW TEXTI /PR 

TSR 

JMP» STABUF 

/ 
/ 

/"AND" ERROR WORDS 
ANDBUF HLT 
CLC 



/CHECK FOR PRINT 
/AND THEM 
/"OR" THEM 
/TAD THEM 



/PRINT THE "AND" 



/PRINT THE "TaO" 



/PRINT THE "lOR" 



/EXIT 
INT THE ASTRICT 

/EXIT 



OAC AnDBuF+15 
LAC (LAC WORD 
DAC .+1 
LAC WOrOA 
AND ANDBUF+i5 
OAC AN08UF+15 
LAC (LAC WORD 
SAD ANDBUF+5 
JMP» ANOBUF 
ISZ ANOBUF+5 
JMP ANDBUF+5 




/PERMIT "AND" FUNCTION 
/CLEAR TEm STORAGE 
A /L.L. WORD 



A+14 /U.L. WORD 
/LLsUL 
/YES EXIT 
/NO 
/LOOP 
/TEMP STORAGE 



.EJECT 
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/TAO 


ERROR WORDS 








05126 


7 4 .^ 4 


TADBUF 


MLT 








1^5127 


754^00 






CLL!CLA 








0513P! 


(7145143 






DAC TADBUF+15 








05131 


207371 






LAC (LAC WORDA 


/U.L. 






V15132 


045133 






DAC .+1 








05133 


204776 






LAC WOrDA 








05134 


345143 






TAD TAnBUF+15 


/ADO THEM 






05135 


045143 






DAC TA08UF+15 








05136 


207373 






LAC (LAC WORDA+21 


/U.L. 






05137 


545133 






SAO TAnBUF+5 


/L.L.=U,L. 






05I40 


625126 






JMP» TaOBUF 


/YES EXIT 






05141 


445133 






IS? TaDBUF+5 


/NO 






05142 


605133 






JMP TAnBUF+5 


/LOOP 






05143 


000000 


/ 







/SUM OF ERROR 










/ 

/lOR 


ERROR WORDS 








05144 


740040 


lORBUF 


HLT 








05145 


754000 






CLLIQLA 








05146 


045162 






DAC lOReUF+16 








05147 


207371 






LAC (LAC WOrOA 


/L.L. 






05150 


045151 






OAC .♦! 








05151 


204776 






LAC WORDA 








05152 


104166 






JMS lOR 


/"OR" 






05153 


005162 






IORBUF+16 








05154 


045162 






DAC IORBUF+16 








05155 


207373 






LAC (LAC WORDA+21 


/U.L. 






05156 


545151 






SAD I0R8UF+5 


/U.L.=U.L. 






05157 


625144 






JMP« lORBUF 


/YES 






05160 


445151 






IS2 IORBUF+5 


/NO 






05161 


605151 






JMP iORBUF+5 


/LOOP 






05162 


000000 







.EJECT 


/INCLUSIVE OR OF 


WORDS 
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«5163 


740040 


05164 


765710 


051.65 


105225 


PI5166 


207374 


05167 


046362 


05170 


046406 


05171 


046411 


05172 


106065 


05173 


207375 


05174 


046362 


05175 


046406 


05176 


046411 


05177 


106075 


05200 


605177 



05201 


740040 


05202 


765710 


05203 


105225 


05204 


207376 


05205 


046443 


05206 


046465 


05207 


046453 


05210 


046523 


05211 


046531 


05212 


046546 


05213 


106170 


05214 


207375 


05215 


046443 


05216 


046465 


05217 


046453 


05220 


046523 


05221 


046531 


05222 


046546 


05223 


106156 


05224 


605223 




657323 


05225 


605225 


05226 


507241 


05227 


047203 


05230 


227203 


05231 


447203 


05232 


045307 


05233 


742020 


05234 


742020 


05235 


742020 


05236 


045310 


05237 


742020 


05240 


742020 


05241 


742020 



/MULTIPLY SIMULATION CONTROL 
MSC HLT 

LAW TEXTH 

TS« 

LAC (JMS MULSIM 

DAC MP4-1 

OAC MPSIGN+6 

DAC MP?+2 

JMS SOFMUL 

LAC (NOP 

DAC MP4_1 

DAC MPSlGN+6 

OAC Mp?+2 

JMS HARMUL 

JMP .-1 

/ 
/ 

/DIVIDE SIMULATION CONTROL 
DISC HLT 

LAW TEXTH 

TSR 

LAC (JMS DIVSIM 

OAC DSPl 

DAC 0SP2 

OAC 0SP3 

OAC DSP4 

DAC 0SP5 

OAC 0SP6 

JMS SOFDIV 

LAC (NOP 

OAC DSPl 

OAC DSP2 

OAC 0SP3 

OAC DSP4 

OAC 0SP5 

OAC 0SP6 

JMS HAROIV 

JMP .-1 
/TAPE 3A 

/TYPE STRING OF CHARACTERS 
/E0M=77=? 
IDIVS=657323 
TYPTSR JMP . 

AND (7777) 

OAC TEMYl# 

LAC* TCMYl 

IS? TEMYi 

DAC TYPSAV 

RTR 

RTR 

RTR 

DAC TYPSAV+i 

RTR 

RTR 

RTR 



/GENERATE SIMULATION 



/LOOP 



/GENERATE SIMULATION 



/LOOP 
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f15242 


105250 




C15243 


305310 




05244 


105250 




05245 


2fi'S307 




05246 


10-^250 




05247 


605230 




05250 


740040 




05251 


045311 




05252 


205307 




05253 


507347 




05254 


547377 




05255 


741000 




05256 


605264 




05257 


205307 




05260 


507225 




05261 


045307 




05262 


105412 




05263 


605245 




05264 


205311 




05265 


507225 




05266 


547225 




05267 


625225 




05270 


741200 




05271 


625250 




05272 


744001 




05273 


347400 




05274 


741400 




05275 


605302 




05276 


205311 




05277 


507225 




05300 


347401 




05301 


605305 




05302 


205311 




05303 


507225 




05304 


347402 




05305 


106562 




05306 


625250 




05307 


000000 




053I0 


000000 




05311 


000000 




05312 


000000 




05313 


000000 



TYPCHR 



TYPSAV 



JMS 


TYPCHR 


LAC 


TYPSAV+l 


JMS 


TYPCHR 


LAC 


TYPSAV 


JMS 


TYPCHR 


JMP 


TYPTSR+3 


HLT 




DAC 


TYPSaV+2 


LAC 


TYPSAV 


AND 


(777700 


SAD 


(151200 


SKP 




JMP 


.+6 


LAC 


TYPSAV 


AND 


(09'0077 


OAC 


TYPSAV 


JMS 


TYCRLF 


JMP 


TYPCHR-3 


LAC 


TYPSAV+2 


AND 


(77 


SAD 


(77 


JMP» TYPTSR 


SNA 




JMP» TYPCHR 


cma; 


!CLL 


TAD 


(40 


SHL 




JMP 


.♦5 


LAC 


TYPSAV+2 


AND 


(77 


TAD 


(200 


JMP 


TYPSAV-2 


LAC 


TYPSAV+2 


AND 


(77 


TAD 


(300 


JMS 


OTY 


JMP» TYPCHR 



























.EJECT 



/ACTIVE 



/CRLF? 

/YEs 

/NO 



/TEST rOR CRLF 



/CORRECT IT FOR NEXT TIME 



/DO CRLF 
/TYPE LAST CHARACTER 



/END OF MESSAGE? 

/YES 

/IF 2ER0 IGNOR 

/IGNOR 



/3RD 
/2NO 
/ACTIVE cHaR 
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«53l4 


605314 




«5315 


105360 




«5316 


105401 




05317 


205313 




PI532CI 


105401 




1^5321 


205312 




05322 


105401 




^^5323 


205311 




05324 


105401 




05325 


205310 




05326 


105401 




05327 


205307 




05330 


105401 




05331 


105406 




05332 


625314 




05333 


605333 




05334 


105360 




05335 


205311 




05336 


105401 




05337 


205310 




05340 


105401 




05341 


205307 




05342 


105401 




05343 


105406 




05344 


625333 




05345 


605345 




05346 


105354 




05347 


105354 




05350 


105354 




05351 


105354 




05352 


105354 




05353 


625345 




05354 


605354 




05355 


207403 




05356 


106562 




05357 


625354 



/TYPE CONTENTS OF THE AC IN OcTaL 
TYPCON JMP . 

JMS DECONT 

JMS TYPOCT 

LAC TYpSAV+4 

JMS TyPOCT 

LAC TYPSAV+3 

JMS TYPOCT 

LAC TYPSAV+2 

JMS TYPOCT 

LAC TYPSAV+i 

JMS TYPOCT 

LAC TYPSAV 

JMS TYPOCT 

JMS SPACf2 

JMP, TYPCON 
/TYPE OUT LOWEST 3 cHaR IN OCTAL 
TYPCO3 JMP . 

JMS DECONT 

LAC TYPSAV+2 

JMS TYPOCT 

LAC TYPSAV4-1 

JMS TYPOCT 

LAC TYPSAV 

JMS TYPOCT 

JMS SPACE2 

JMP» TYPC03 
TYPTYT JMP . 

TSP 

TSP 

TSP 

TSP 

TSP 

JMP» TYPTYT 
SPAC JMP , 

LAC (240 

JMS OTY 

JMP» SPAC 

.EJECT 
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0536?! 


605360 




05361 


iM S 3 7 




f)5?6? 


749H20 




0536? 


740020 




05364 


045310 




0536=^ 


74P020 




05366 


740020 




05367 


045311 




05370 


742020 




05371 


740020 




0537? 


045312 




05373 


742020 




05374 


740020 




05375 


045313 




05376 


742020 




05377 


740020 




05400 


625360 




05401 


605401 




05402 


507217 




05403 


347404 




05404 


106562 




05405 


625401 




05406 


605406 




05407 


767225 




05410 


105225 




05411 


625406 




05412 


605412 




05413 


207405 




05414 


106562 




05415 


207406 




05416 


106562 




05417 


625412 
105401 
105354 
105225 
105412 
105412 
005314 
105345 
005314 



DECONT 



TYPOCT 



SPACE2 



TYCRLF 



TDIGlTrJMS 
TSPsJMS SP 
TSRsJMS TY 
TCR=JMS TY 
TINsTCR 
OPSsTYPcON 
TYT=JMS TYPTYT 
OPT=OPS 
/ 



JMP . 

nAC TYPSAV 

RTR 

RAR 

DAC TYPSAV+l 

RTR 

RAR 

DAC TYPSAV+2 

RTR 

RAR 

DAC TYPSAV+3 

RTR 

RAR 

DAC TYPSAV+4 

RTR 

RAR 

JMP» DECONT 

JMP . 

AND (7 

TAD (260 

JMS OTY 

JMP» TYPOCT 

JMP . 

LAW (77 

TSR 

JMP, SPACE2 

JMP . 

LAC (215 

JHS OTY 

LAC (212 

JMS OTY 

JMP* TYCRLF 

TYPOCT 
AC 

PTSR 
CRLF 



/STRING 
/CR.LF 

/CONTENTS OF AC IN OcTaL 
/TAB 



.EJECT 
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05420 


151215 




05421 


251424 




0542? 


112014 




05423 


315504 




05424 


112611 




05425 


040540 




05426 


240523 




05427 


245420 




05430 


012224 




05431 


406256 




05432 


151220 




05433 


012224 




05434 


406140 




05435 


231017 




05436 


251404 




05437 


400205 




05440 


402225 




05441 


164020 




05442 


221117 




05443 


224024 




05444 


174024 




05445 


101123 




05446 


402305 




05447 


032411 




05450 


171600 




05451 


151223 




05452 


276075 




05453 


617504 




05454 


051405 




05455 


240540 




05456 


052222 




05457 


172240 




05460 


243120 




05461 


172524 




05462 


235600 




05463 


151223 




05464 


276175 




05465 


617510 




05466 


011424 




05467 


400106 




05470 


240522 




05471 


400501 




05472 


031040 




05473 


050105 




05474 


401720 




05475 


052201 




05476 


241117 




05477 


165600 




05500 


151223 




05501 


276275 




05502 


617522 




05503 


052005 




05504 


012440 




05505 


140123 




05506 


244005 



TEXTa .SIXrT <i5><l2>'MULTlPLY-0IVinE TEST, PART 2. 



,SiXBT <15><12>'PART 1 SHqUlD BE RUfg PRjoR Tq THjS SECTjOn 



.SiXBT <15><12>'SW0=1=OElETE ERROR TYpflUTS. 



.SiXBT <15><12>'SW1=1=hALT AFTER EACh EAE OPERATION. 



.SIXBT <15><12>'SW2=1=REPEAT LAST EAE OPERATION. 
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05507 


010540 




05511^ 


172005 




05511 


220124 




05512 


111716 




05513 


560000 




05514 


151223 




05515 


276375 




05516 


617510 




05517 


011424 




05520 


400106 




05521 


240522 




05522 


400501 




05523 


031040 




05524 


050105 




05525 


402305 




05526 


212505 




05527 


160305 




05530 


560000 




05531 


151223 




05532 


276475 




05533 


617522 




05534 


052005 




05535 


012440 




05536 


050103 




05537 


104005 




05540 


010540 




05541 


230521 




05542 


250516 




05543 


030556 




05544 


151223 




05545 


276575 




05546 


617503 




05547 


310514 




05550 


054003 




05551 


171520 




05552 


140524 




05553 


054024 




05554 


052324 




05555 


560000 




05556 


151223 




05557 


276675 




05560 


617520 




05561 


221116 




05562 


244042 




05563 


171342 




05564 


400124 




05565 


400516 




05566 


044017 




05567 


064020 




05570 


012323 




05571 


544027 




05572 


100516 




05573 


402327 




05574 


657561 




05575 


770000 



,SIXBT 



<15><12>'SW3=lrHALT AFTER EACH EAE SEQUENCE. 



SiXBT 



<l5><12>'SW4=l=REpEAT EAC^ EAE SEQUENCE, 



.SIXBT 



<i5><i2>'sw5=i=cycle: Complete test. 



,SlXBT 



<15><12>'SW6=1=PRinT "Ok" *T EnD qE PASS. WHEn SW5=1'<77> 
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05576 


151215 




05577 


?=;1423 




05600 


400601 




«5601 


111405 




05602 


044040 




05603 


401525 




05604 


142411 




05605 


201411 




05606 


052240 




05607 


500103 




05610 


514015 




05611 


251424 




05612 


112014 




05613 


110301 




05614 


160477 




05615 


101107 




05616 


104017 




05617 


220405 




05620 


224020 




05621 


221704 




05622 


250324 




05623 


404014 




05624 


172740 




05625 


172204 




05626 


052240 




05627 


202217 




05630 


042503 




05631 


247700 




05632 


151210 




05633 


012204 




05634 


270122 




05635 


057700 




05636 


151204 




05637 


112623 




05640 


400601 




05641 


111405 




05642 


044003 




05643 


500411 




05644 


261123 




05645 


172251 




05646 


404040 




05647 


035001 




05650 


035140 




05651 


404040 




05652 


400350 




05653 


152151 




05654 


151200 




05655 


770000 




05656 


212517 




05657 


241105 




05660 


162440 




05661 


404040 




05662 


404040 




05663 


220515 




05664 


011116 



TEXTb .SIXbT <15><12>'MULS FAILED MULTIPLIER (AC) MULTIPLICAND?' 



TEXTC .SiXBT 'hI^H ORDER PRODUCT LOW QRDER PR0DUCT'<77> 



TEXTO .SIXBT <15><12> • hArOwARE • <77> 

TEXTE .SiXBT <15><12> ' Oi VS FA j lEO C( D j V l SDR > C(AC) C ( MQ ) • <15><12> 



.SIXBT <77> 

TEXTF .SiXBT 'QUOTIENT REMAINDER L I NK • <1S><12> • SOFTWARE ?• <77> 
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05665 


040522 




0=5666 


404014 




H5667 


111613 




0567M 


151223 




1^5671 


170624 




05672 


270122 




05673 


057777 




05674 


151214 




05675 


111613 




05676 


401617 




05677 


244023 




05700 


052440 




05701 


171640 




05702 


041126 




05703 


110405 




05704 


401726 




05705 


052206 




05706 


141727 




05707 


777700 




05710 


151203 




05711 


501451 




05712 


404040 




05713 


035001 




05714 


035140 




05715 


404040 




05716 


404003 




05717 


501521 




05720 


514040 




05721 


404003 




05722 


502303 




05723 


517700 




05724 


520000 




05725 


151217 




05726 


252440 




05727 


170640 




05730 


616060 




05731 


400310 




05732 


050313 




05733 


400201 




05734 


047700 



05735 


740000 


05736 


740000 


05737 


104162 


05740 


105747 


05741 


104134 


05742 


104162 


05743 


106120 


05744 


104134 


05745 


740000 


05746 


625735 



TEXTG .SiXBT <15><12>'LINK MOT SET ON DiVlDE OVERFLOW? • <77> 



TEXTh .SiXBT <15><12>'C(L) C(AC) C(mQ) C(sC)'<77> 



TEXTI .SIXBT /•/ 

TEXTJ .sIXBT <15><12>'0uT OF 100 CHECK BAD?' 



/PDP-15 eAe II - TAPE 4 

/RANDOM CONTROL MuL/DiV 

/ 

EXRAN NOP 

NOP /SET UP FOR RANDOM LOOP 

JMS LOOP4 /SET UP FOR LOOP 

jMS mulsht /Random multiply 

JMS HLOOPM /Check for halt and loop 

JMS L00P4 /SET UP FOR LOOP 

JMS OIVSHT /RANDOM DIVIDE 

JMS HLOOPM /CHECK FOR HALT AND LOOP 

NOP /CHECK FOR LOOP 

JMP» EXRAN 

/ 

/MULTIPLY SHIFT CONTROL 
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1 1 








(^5747 


740040 


MULSHT XX 






05755^ 


?(17407 


LAC 


(MULS-21 




05751 


i?i46334 


OAC 


HMPY+4 




0575? 


777777 


LAW 


-1 




P15753 


046360 


oac 


MP4-3 




05754 


105765 


jMS 


EXMUL 




PI5755 


206334 


LAC 


HMPy+4 




05756 


547410 


SAO 


(MULS 




05757 


625747 


JMP» MULSHT 




0576^^ 


44^,334 


ISZ 


HMPY+4 




05761 


750001 


CLC 






05762 


346360 


TAD 


MP4-3 




05763 


046360 


DAC 


MP4-3 




05764 


605754 


JMP 


.-10 








/MULTIPLY Random numbers 




05765 


740000 


EXMUL NOP 






05766 


207411 


LAC 


(770000 




05767 


047147 


OAC 


cTran# 




05770 


207412 


LAC 


(09'3466 




05771 


046021 


OAC 


RANI 




05772 


207413 


LAC 


(153501 




05773 


046022 


DAC 


RAN2 




05774 


207414 


LAC 


(210762 




05775 


046023 


OAC 


RAN3 




05776 


106007 


JMS 


RAN 




05777 


104157 


JMS 


LG0P2 




06000 


106065 


JMS 


SOFMUL 




06001 


106075 


JMS 


HARMUL 




06002 


I06l05 


JMS 


MULCOM 




06003 


104130 


JMS 


HLOOPS 




06004 


447147 


IS? 


CTRAN 




06005 


605776 


JMp 


.-7 




06006 


625765 


JMPe EXMUL 
.EJECT 



/ONE SHIFT 

/HAROWaRF INSERT 
/ONE 

/SOFTWARE INSERT 
/GO TO MULTIPLY 

/MULTIPLY INSTRUCTION 
/22 SHIFTS 
/YES EXIT 

/INCREMENT HARDWARE SHIFT 



/INCREMENT sOf^TWApE sHIFj 
(RAN2 X RAN3) 

/RANDOM NUMBER COUNTER 4096 



/RANDOM NUMBER GENERATOR 
/LOOP SET UP 
/SOFTWARE MULTIPLY 
/HARDWARE MULTIPLY 
/HARDWaRE=SOFTWaRE 
/HALT-LOOP? 



/EXIT 
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EAE- 


I I 




f161307 


(■^ 51 P 




f16PilP 


? ^ ^-l ? 1 




H6f111 


1 '7 "^ /I ? 4 




0601? 


?'460?1 




06013 


1 06024 




06014 


046^22 




06015 


106024 




06016 


046023 




06017 


626^07 




0602^ 


335671 




06021 


003466 




0602? 


153501 




06023 


210762 




0602'* 


000000 




06025 


046064 




06026 


206052 




06027 


547415 




06030 


741000 




06031 


606041 




06032 


207416 




06033 


046052 




06034 


206051 




06035 


744010 




06036 


741400 




06037 


347213 




06040 


046051 




06041 


226052 




06042 


346051 




06043 


066052 




06044 


206064 




06045 


740020 




06046 


366052 




06047 


446052 




06050 


626024 



/Random number generator 

RAN f 

LAC RANI 

JMS rdgen 

DAC RANi 

JMS ROGEN 

DAC RAN2 

JMS ROGEN 

DAC RA\i3 
JMP« RAN 



/ 

RNO 

RANI 

RAn2 

RAn3 

/ 

ROGEN 



rantad 



/FIRST MUMPER 
/SECOND NUMBER 
/THIRD NUMBER 



335671 
003466 
153501 
210762 



DAC RWRK 

LAC RANDEX 

SAD (RANTBL+10 

SKP 

JMP RANTAD 

LAC (RANTBL 

DAC RANDEX 

LAC RANCON 

CLLIRAL 

SZL 

TAD (1 

DAC RANCON 

LAC* RANDEX 

TAD RANCON 

DAC» RANDEX 

LAC RWRK 

RAR 

TAD« RANDEX 

ISZ RANDEX 

JMP» ROGEN 

.EJECT 
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II 


06051 


123456 


0605? 


006063 


06053 


654321 


P)6054 


361416 


06055 


055363 


06056 


546060 


06057 


243035 


06060 


762572 


06061 


453237 


06062 


150214 


06063 


000000 


06064 


000000 



RANCON 
RANDEX 

RANTgL 



RWRK 



123456 
RANTBL-' 

654321 
361416 
055363 
546060 
243035 

762572 

453237 

150214 





.EJECT 



10 



PAGE 7'; 


1 EAE- 


I I 




06f)65 


740000 




06066 


?060?2 




065167 


1 -^^340 




06070 


206023 




06071 


047164 




06PI7? 


207170 




06073 


047161 




06074 


626065 




06075 


740000 




06076 


?06023 




06077 


106330 




06100 


206022 




06l0l 


047160 




06102 


641002 




06103 


047163 




06104 


626075 




06105 


740000 




06106 


207160 




06107 


547161 




06110 


741000 




06111 


606115 




06112 


207163 




06113 


547164 




06114 


606117 




06115 


106750 




06116 


106256 




06117 


626105 




06120 


740040 




06121 


207417 




06122 


046324 




06123 


777777 




06124 


046436 




06125 


106136 




06126 


206324 




06127 


547420 




06130 


626120 




06131 


446324 




06132 


750001 




06133 


346436 




06134 


046436 




06135 


606125 



/SOFTwARF MULTIPLY («AN2 X RAN3) 



SOFMUL 



NOP 
LAC 
JMS 
LAC 
DAC 
LAC 
OAC 
JMP» 



RA\i2 

MULT 

RA\'3 

LPROnS* 

MP5 

HPRons 

SOFMUL 



/HARDWARE 
HARMUL 



MULTIPLY 
NOP 



RAN3 
HMPY 
RAN2 
HPRODH 



LAC 

JMS 

LAC 

OAC 

LACO 

DAC LPRODh 

JMP» HArMuL 



/COMPARE PRODUCT OF SOFTWARE 
MULCOM NOP 

HPRODH# 

HPRODS* 



/DIVIDE 
DIVSHT 



LAC 
SAD 
SKP 
JMP 
LAC 
SAO 
JMP 
JMS 
JMS 
JMP. 

SHIFT 
HLT 

LAC 
DAC 

LAW 

OAC 

JMS 

LAC 

SAO 

JMP» 

IS? 

CLC 

TAD 

DAC 

JMP 



. +4 

LPRODH# 
LPROOS 
.+3 

BADMUL 
MULCT 
MULCOM 

CONTROL 

(DIVS-22 

HDlVlD+6 

-1 

DV4 + 4 

EXDIV 

HOIVID+6 

(DIVS 

DIVSHT 
hDiViO+6 

DV4 + 4 
DV4 + 4 
.-10 



/LOW 

/LOW 

/HIGH 
/EXIT 



ORDER 
ORDER 

ORDER 



IN AC HIGH ORDER IN MP5 



/MULTIPLIER 

/MULTIPLICAND 
/HIGH ORDER 

/LOW ORDER 
/EXIT 

+ HARDWARE 



/HIGH ORDER NOT EQUAL 



/LOW 



/LOW 
ORDER NOT 



ORDER 
EQUAL 



NOT EQUAL 



/ONE SHIFT COUNT 

/HARDWARE Insert 

/ONE 

/SOFTWARE INSERT 

/GO TO DIVIDE 

/DIVIDE INSTRUCTION 

/23 SHIFTS 

/YES EXIT 

/iNC HARDWARE 



/INC SOFTWARE 



Shift 

SHIFT 



.EJECT 
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EAF- 


II 




06136 


740000 




06137 


207411 




06i40 


047^47 




06I4I 


2074I3 




f)6l4? 


046022 




06143 


207414 




06144 


046023 




06145 


106007 




06146 


104157 




06147 


106170 




06150 


106156 




06151 


106201 




06152 


104130 




06153 


447147 




06154 


606145 




06155 


626136 



/RANDOM MUMBER COUNTER 4096 



/DIVIDE Random numbers (RaNi,ran3)/(RaN2> 

EXniV NOP 

lac (770000 

OAC CTRAN 

LAC (I5350I 

DAC RAN2 

LAC (210762 

DAC rAN3 

JMS Ran /Random number generator 

JMS LOOP2 /LOOP SETUP 

JMS SOFDIV /SOFTWARE DIVIDE 

JMS HaROIV /HARDWARE DIVIDE 

JMS DIVCOM /HAROWaREsSOFTWaRE 

JMS HLOQPS /CHECK HALT LOOP 

IS2 CTRAN 

JMP .-7 

JMP» EXDIV 

.EJECT 
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EAE- 


11 




06156 


740000 




06157 


P06023 




6160 


65'000 




06161 


?06i1?l 




0616? 


106316 




0616:^ 


206022 




06164 


047174 




06165 


641002 




06166 


047172 




06167 


626156 




06170 


740000 




06171 


206021 




06172 


106413 




06173 


206023 




06174 


206022 




06175 


047173 




06176 


207150 




06177 


047175 




06200 


626170 




06201 


740000 




06202 


206156 




06203 


741400 




06204 


740001 




06205 


741100 




06206 


606216 




06207 


207172 




06210 


547173 




06211 


741000 




06212 


606216 




06213 


207174 




06214 


547175 




06215 


606220 




06216 


106664 




06217 


106221 




06220 


626201 



/HAROWARD 
HARDI V 



/ 

/SOFTWARE 

SOFDIV 



/COMPARE 
DIVCOM 



nVCMER 



nivi 

NOP 

LAC 

LMQ 

LAC 

JMS 

LAC 

OAC 

LACQ 

DAC 

JMP» 

nivi 

NOP 
LAC 
JMs 
LAC 
LAC 
OAC 
LAC 
OAC 
JMP« 

QUOTI 
NOP 
LAC 
SZL 
CMA 
SPA 
JMP 
LAC 
SAD 
SKP 
JMP 
LAC 
SAO 
JMP 
JMS 
JMS 
JMP 



DE 

RAN3 

RANI 
HDIVID 
RAN2 
REMH 

OUnTH 
H4RD1V 



/DIVIDEND LOW ORDER 

/DIVIDEND HIGH ORDER 

/DIVISOR 

/HARDWARE REMAINDER 

/HARDWARE QUOTIENT 



DE (RaN1.RaN3)/(RaN2) 

/HIGH ORDER Dividend 



RAnI 
DIVIDE 
RAN3 
RAN2 
QUOTS 
DVD 
REMS 
SOFDIV 

ENT AND 

haRoiv 



/LOW ORDER DIVIDEND 
/DIVISOR 
/SOFTWARE QUOTIENT 

/SOFTWARE REMAINDER 



REMAINDERS 



DVCMER 
QUOTH# 
QUOTS# 

.+4 
REMH# 
REMS«f 
.♦3 

BADOIV 
OIVCT 
DIVCOM 



/GET LINK FROM SOFTWaRE DIVIDE 

/Check link from hardware Divide 

/HDw LINK=1, SO COMPL SOFw LINK. 
/AC SHOULD BE PLUSE FOE EQUAL LINKS 
/LINKS NOT EQUAL, REPORT ERROR. 



/QUOTIENT NOT EQUAL 



/REMAINDER NOT EQUAL 
/PERCENT OF TIMES 



.EJECT 
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t^622l 


740040 




P(6222 


107026 




06223 


207347 




06224 


047153 




06225 


147204 




06226 


106170 




06227 


106156 




06230 


206156 




06231 


741400 




06232 


740001 




06233 


741100 




06234 


606244 




06235 


207172 




06236 


547173 




06237 


741000 




06240 


606244 




06241 


207174 




06242 


547175 




06243 


741000 




06244 


447204 




06245 


447153 




06246 


606226 




06247 


106306 




06250 


105412 




06251 


206324 




06252 


105314 




06253 


207421 




06254 


740040 




06255 


626221 




06256 


740040 




06257 


107026 




06260 


207347 




06261 


047153 




06262 


147204 




06263 


106065 




06264 


106075 




06265 


207160 




06266 


547161 




06267 


741000 




06270 


606274 




06271 


207163 




06272 


547164 




06273 


741000 




06274 


447204 




06275 


447153 




06276 


606263 




06277 


106306 




06300 


105412 




06301 


206334 




06302 


105314 




06303 


207422 




06304 


740040 



/NUMBER OF TIMES OIVS 


niVCT HLT 




JMS 


PRINT 


lac 


(-100 


DAC 


EAEOON# 


OHM 


XBAO# 


JMS 


SOFDIV 


JMS 


HARDIV 


LAC 


HARQIV 


SZL 




CMA 




SPA 




JMP 


dcTeR /I 


LAC 


QUOTH 


SAP 


ouots 


SKP 




JMP 


.+4 


LAC 


REHH 


SAD 


REMS 


SKP 




DCTER ISZ 


XBAD 


IS2 


EAEOON 


JMP 


DIVCT+5 


JMS 


TIHTEX 


TCP 




LAC 


HOIVIOX 


JMS 


OPT 


LAC 


(DISC+l 


HLT 




JMP( 


. OIVCT 


/NUMBER OF TIMES MULS 


MULCT HLT 




JMS 


PRINT 


LAC 


(-100 


DAC 


EAEOON 


02M 


XBAD 


JMS 


SOFMUL 


JMS 


HARMUL 


LAC 


HPROOH 


SAO 


HPRODS 


SKP 




JMP 


.+4 


LAC 


LPRODH 


SAO 


LPRODS 


SKP 




]Si 


XBAD 


IS? 


EAEOON 


JMP 


MULCT+5 


JMS 


TI»^TEX 


TCR 




LAC 


HMPY+4 


JMS 


OPT 


LAC 


(MSC+l 


HLT 





BAD 



/TIMES ChECk 

/jIMEs COuNyER 
/CL TIMES FOUND 



/GET SFTW LINK 
/CHECK HOW LINK 
/HOW LINK=i, SO COMPL SFT 
/AC MUST BE PLUS FOR EOUaL 
/NOT eOUaL. GO TO ERROR. 



/GOOD 
/BAD 



RAD 



LINK 
LINES 



/GOOD 

/BAD INCREMENT 

/LIMITS 

/LOOP 

/PRINT ROUTINE 



TIMES FOUND 



BAD 



/TIMES 



/EXIT 



CHECK 

/TIMES COUNTER 
/CL TIMES FOUND 



/GOOD 
/BAD 



BAD 



//GOOD 

/BAD INCREMENT 

/LIMITS 

/LOOP 

/PRINT ROUTINE 



TIMES FOUND 
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^6305 626256 



JMP» MULCT 
.EJECT 



/EXIT 
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EAE- 



5^6306 
P16307 

^631? 
06313 
06314 
06315 



06316 
06317 
06325^ 
06321 
06322 
06323 
06324 
06325 
06326 
06327 



74S1^40 
137026 
765725 
105225 
1.0S354 
207204 
105333 
62fi306 



000000 

047202 
426316 
6 6 4 
046325 
207202 
644323 

000000 

446316 

626316 



/PRINT ROUTINE OF TIME BAD 
riMTrX HLT 
J MS 

LAW 

TSR 
TSP 
LAC 
JMS 
JMP» 

/ 

/HaRdWaRE ARITHMETIC SUBROUTINES 

/SIGNED DIVIDE SUBROUTINE 

/CALLING SEQUENCE 

/DIVIDE IN AC AND HQ 

/JMS HDIVIDE 

/PICKUP OTHER FACTOR 

/ 



P^i 1 NT 
TE><TJ 




XrfAO 
TYPC03 
TIMTEV 


/XX 

/EXIT 



/OUT OF 100 CHECKS B4D XX 



/ENTRY 
TEM# 
HO IV ID 



HDIVID 

OAC 
XCT» 

DAC HDIVL 
LAC TEM 
DIVS 
HDIVL /LOCATION 

IS? HDIVID 
JMP» HOlVin 
.EJECT 



TO SUBROUTINE 



OF DIVISOR 
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B633P) 


P)00000 


06331 


664000 


ft6332 


046335 


06333 


426330 


06334 


657122 


06335 


000000 


06336 


446330 


06337 


626330 



/SIGNED MULTIPLY SUBROUTINE 

/CALLING SFQUENCF. 

/ONE FACTOR IN AC 

/JMS HMPY 

/PICK UP OTHFR FACTOR 

/ 

HMPY f) 

GSM 

nAC .+3 

XCt» HMPY 

MULS 



IS? HMPY 

JMP» HMPY 

.EJECT 



/LACXXX ON LAC I XXX 

/ENTRY TO SUBROUTINE 

/FIX MULTIPLIER MAGNITUDE 

/LAC MULTIPLICAND 

/LOCATION OF MULTIPLIER 
/INDEX RETURN 
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06340 


000000 


06341 


147170 


06342 


741200 


06343 


740000 


06344 


745100 


06345 


740003 


06346 


047165 


06347 


426340 


06350 


741200 


06351 


740000 


06352 


741100 


06353 


740003 


06354 


047166 


06355 


207423 


06356 


740010 


06357 


046400 


06360 


777756 


06361 


047167 


06362 


740000 


06363 


207165 


06364 


740020 


06365 


207170 


06366 


745400 


06367 


347166 


06370 


740020 


06371 


047170 


06372 


207165 


06373 


740020 


06374 


047165 


06375 


207170 


06376 


447167 


06377 


606411 


06400 


000000 


06401 


047170 


06402 


207165 


06403 


740000 


06404 


406400 


06405 


047165 


06406 


740000 


06407 


446340 


06410 


626340 


06411 


740000 


0641? 


606363 



/PnP-15 ONE'S cOMPLEMEMT SINGLE PRECISION MULTIPLICATION SUeROUTlNE 
/HARnWARE SIMULATION 

/CALLING Sequence: 

/LAC MULTIPLIER 
/JMS MULT 
/LAC MULTIPLICAND 

/RETURm; low order PROdUcT in AC, HIGH ORDER PROoUcT 
/IN MP5 



MULT 



MP4 



MPSIGN 



MP2 







02M 


MP#5 


SNA 




NOP 




SPA 


•CLL 


CMA 


;CML 


OAC 


M#Pi 


XCT. 


» MULT 


SNA 




NOP 




SPA 




CMA 


ICML 


DAC 


MP#2 


LAC 


(360000 


RAL 




(UC 


MPSIGN 


LAW 


-2? 


OAC 


MP«3 


NOP 




LAC 


MPl 


RAR 




LAC 


MP5 


SZLi 


ICLL 


TAD 


MP2 


RAR 




OAC 


MP5 


LAC 


MPl 


RAR 




OAC 


MPl 


LAC 


MP5 


ISZ 


MP3 


JMP 


MP2 + 2 







DAC 


MP5 


LAC 


MPl 


NOP 




XCT 


MPSIGN 


OAC 


MPl 


NOP 




ISZ 


MULT 


JMP» 


MULT 


NOP 




JMP 


MP4 


.EJECT 
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EAE-II 



06413 


000000 


06' -4 


745100 


06- 15 


740003 


06416 


047150 


064l7 


42fi4l3 


06420 


741400 


06421 


740001 


06422 


047171 


06423 


106424 


06424 


000000 


06425 


446413 


06426 


426413 


06427 


741100 


06430 


740003 


06431 


106432 


06432 


000000 


06433 


744000 


06434 


047151 


06435 


446413 


06436 


777755 


06437 


047152 


06440 


206503 


06441 


046476 


06442 


147200 


06443 


740000 


06444 


207151 


06445 


606460 



/PDP-15 ONE'S COMPLEMENT DIVIDE SUBROUTINE HaRWaRE SIMULATION 

/CALLING SFQUENCE, 

/ LAC HIGH ORDER DIVIDEND/ JMS DIVIDE 

/ LAC LOW ORDER niVJOENO 

/ LAC DIVISOR 

/ RETURN. QUQT. IN AB. REM. IN D#Vd 

/IF HIGH OlVlOENn S GREATER OR EQUaL TO DIVISOR, DIVIDE TaKES 

/PLACE AND LINK IS SET TO 1, 

DIVIDE 



/HIGH ORDER DIVIDEND IN AC 



DV5 



DV4 



DSPl 



SPaiCLL 
CMAICML 
OAC DisVD 
XCT» DIVIDE 
S2L 



o#uO 

DV5 



cma 

DAC 

JMS 



IS? 

XCT» 

SPA 

CMAICML 

JMS DV4 



CLL 

DAC 

IS2 

LAW 

OAC 

LAC 

DAC 

DZM 

NOP 

LAC 

JMP 

.EJECT 



DIVIDE 
DIVIDE 



/IS DIVIDEND POSITIVE 

/NO, COMPLEMENT AC AND LINK 
/STORE HIGH ORDER DIVIDEND 
/FETCH LOW ORDER DIVIDEND 
/DIVIDEND SIGN glT POSITIVE? 

/NO. Complement low order diviDEnd 

/STORE low order DIVIDEND 

/DEPOSIT DIVIDEND SIGN BIT INTO 0V5M 

/REMAINDER HAS SIGN OF DIVIDEND 



D#VS 
DIVIDE 

-23 

DV#1 

SVCB 
SVC0 
SVCrY 

DVS 
DV2A-1 



/FETCH DIVISOR 

/SKIP IF SIGN POSITIVE 

/COMPLEMENT AC AND LINK 

/DEPOSIT QUOTIENT SiGN BfT INTO 

/CONTAINS SIGN BIT OF OjOTIENT 

/CLEAR LINK 

/SAVE DIVISOR 

/INCREMENT TO EXIT ADDRESS 

/SET UP "STEP COUNTER" 



/SET SAVE CARRY SWjTCh TO jNiTjAl 
/CLEAR SAVED CARRY, 



DV4 



/FETCH 
/START 



DIVISOR 
DIVISION 
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EAE- 


1 I 




P16446 


?06475 




06447 


740010 




0645C1 


?07150 




06451 


740010 




06452 


«47l50 




06453 


740000 




06454 


306464 




06455 


740010 




06456 


207l5l 




06457 


745400 




06460 


740031 




06461 


347150 




06462 


047150 




06463 


106464 




06464 


000000 




06465 


740000 




06466 


207200 




06467 


741100 




06470 


740002 




06471 


207171 




06472 


740010 




06473 


047171 




06474 


106475 




06475 


000000 




06476 


740040 




06477 


606513 




06500 


606510 




06501 


606504 




06502 


606516 




06503 


606477 




06504 


207200 




06505 


741100 




06506 


606550 




06507 


606515 




06510 


207200 




06511 


741100 




06512 


606550 




06513 


206464 




06514 


047200 




06515 


446476 




06516 


447152 




06517 


606446 



DV? 


LAC 
RAL 


OHIB 




LAC 


DVn 




RAL 






OAC 


DVn 


OSP3 


NOP 






LAC 


DCRY 




RAL 






LAC 


nvs 




SZL 


!CLL 




CMA! 


IIAC 


DV2A 


TAO 


DVn 




OAC 


DVn 




JMS 


.+1 


DCRY 







DSP2 


NOP 






LAC 


SVCRY 




SPA 






CML 






LAC 


QUO 




ral 






OAC 


QUO 




JMs 


.+1 


QHIB 







SVC0 


HLT 






JMP 


SVC2 




JMP 


SVCl 




JMP 


SVclA 




JMP 


SVc3 


SVCB 


JMP 




SVCIA 


LAC 
SPA 


SVCRY 




JMP 


OVRFLO 




JMP 


SVC3-1 


SVCl 


LAC 
SPA 


S#VCRY 




JMP 


OVRFLO 


SVC2 


LAC 


OCRY 




DAC 


SVCRY 




IS2 


SVC0 


SVC3 


IS? 


DVl 




JMP 


DV2 




.EJECT 



/GET Saved hi quotient bit 

/PUT BIT INTO LINK 

/GET DIVIDENn 

/INSERT HI OUOT INTO DIVIDEND 

/STORE NEW DIVIDEND 



/GET LAST 



CARRY 

/PUT INTO LINK 
/GET DIVISOR 
/IF LINK IS 1. 



/IF LI^K Is 0. 



ADD 

ADD 



NEG DIVISOR. 

POS DIVlSoR" 
/ADO DIVISOR (+,-) TO niVIOEND 
/STORE NEW DIVIDEND 



/SAVE CARRY 

/CHECK LAST 

/CARRY. =1 IF OVERFLOW 

/IF OVERFLOW ERROR LAST CYCLE, 

/COMPLEMENT THIS INSERT pIT. 

/GET QUOTIENT 

/INSERT CARRY INTO QUOTIENT. 

/STORE NEW QUOTIENT. 

/SAVE HI BIT FOR 

/INSERTION INTO DIVIDEND. 

/iST - SAVE EXTRA SIGN BIT 

/2ND - SAVE SIGN BIT, CHECK XSIGN BIT 

/3RD - CHECK SIGN BIT. 

/OTHERS - CONTINUE 

SVC0+i 



/TEST SAVED SIGN BIT 

/MUST=0 

/NOT=0, OVERFLOW 

/SAVE CARRY FOR TEST NEXT CYCLE 

/INCREMENT sWItCH 

/INCREMENT STEP COUNTER 
/GO TO NEXT DIVIDE CYCLE 
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?I6520 


206464 






06521 


741100 






,;» i c 9 ;p 


606527 






.-:6523 


740000 


0SP4 




^5524 


207151 






06525 


347150 






(^6526 


047150 






06527 


206424 


0V3 




0653f 


740010 






06531 


740000 


0SP5 




06532 


207150 






06533 


741401 






06534 


047150 






06535 


206432 






06536 


740010 






06537 


207171 






06540 


741400 






06541 


740001 






06542 


047171 






06543 


207200 






06544 


740010 






06545 


207171 






06546 


740000 


DSP6 




06547 


626413 






06550 


207152 


OVRFLO 




06551 


740030 






06552 


740100 






06553 


606527 






06554 


206475 






06555 


740010 






06556 


207150 






06557 


740010 






06560 


047150 






06561 


606527 





/STEP COUNTER=0 
LAC OC^Y /TEST LAST CARRY 
SPA 



JMP DV^ 
NOP 
LAC DVS 



/lF=l KO CORRECTIONS NEEOEn 

/WAS 

/ADO (+) DIVISOR TO CORRECT 

/QVO VALUE rOR REMAINDER 



/CHECK DIVIDEND SIGN 
/ 



/IF MINUS, COMPLEMENT REMAINDER 

/ 

/CHECK DIVISOR SIGN 



/IF MINUS' COMPLEMENT QUOTIENT 



TAD DVn 
DAC ovn 
Lac DV5 

RAL 
NOP 

LAC DVO 
SZL'CMA 

DAC nvn 

LAC DV4 

RAL 

LAC QUO 

SHL 

CMA 

DAC QUO 

LAC SVCRY /SET LINK TO DETERMINED VALUE 

RAL 

LAC QUO 

NOP 

JMP» DIVIDE 

/OVERFLOW OCCURRED 
LAC DVi 
lAC 
SMA 

JMP OV3 

LAC QHIB /GET SAVED HI QUOTIENT BIT 
RAL 

LAC DVn /PUT INTO DIVIDEND 

RAL 

DAC DVD /STORE NEW DIVIDEND 

JMP nV3 /GO TO ADJUST SIGNS 

.EJECT 
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06562 


?)000C»0 




«6563 


707704 




06564 


700406 




06565 


700401 




06566 


606565 




06567 


626562 



/OUTPUT ROUTIME FOR TTy 



06570 


106570 


06571 


047162 


06572 


446570 


06573 


226570 


06574 


047201 


06575 


446570 


06576 


227162 


06577 


446570 


06600 


227162 


06601 


547201 


06602 


626570 


06603 


447162 


06604 


606576 



06605 


106605 


06606 


226605 


06607 


047162 


066t0 


446605 


06611 


226605 


06612 


047201 


06613 


446605 


06614 


227162 


06615 


105314 


06616 


207162 


06617 


547201 


06620 


626605 


06621 


447162 


06622 


606614 



OTY 



/Make 

/abcd 

/xxxx 

//xxxx 

abco 



/ 

/OCTAL 
/OCTOU 

/xxxx 

/XXXX 
/ 

OCTOUT 



LEM 
TLS 
TSF 

JMP .-1 
JMP» OTY 

THREE CHARACTERS OUT OF aN aC WORD 
ENTRANCE TO SUgROUTlNE 
LHE OF ADORESS FlELo 
RHE OF AOORE^S FELD 
JMS , 

DAC lACW 
IS? ABCD 
LAC» ARCD 
DAC TACW# 
IS? ABCD 
LAC» MCW# 
ISZ ABCD 
LAC« lACW 
SAD TACW 
JMP« ARCD 
ISZ lACW 
JMP .-6 

OUTPUT SUBROUTINE 
T ENTRANCE TO ROUTINE 
LHE OF ADDRESS FIELD 
RHE OF ADDRESS FIELD 

JMS . 
LAC» OCTOUT 
DAC lACW 
ISZ OCTOUT 
LAC» OCTOUT 
DAC TACW 
ISZ OCTOUT 
LAC» lACW 
JMS OPS 
LAC lACW 
SAD TACW 
JMP* OCTOUT 
ISZ lACW 
JMP .-6 
.EJECT 
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PI6(^23 


740040 


06624 


104164 


PI6625 


lflS5)24 


H6626 


1 P)4140 


[16627 


104164 


Cl663(i1 


105735 


06631 


104140 


06632 


106642 


06633 


447146 


06634 


606624 


06635 


606624 


06636 


740040 


06637 


207424 


06640 


106562 


06641 


626636 


06642 


740040 


06643 


750004 


06644 


507353 


06645 


741200 


06646 


626642 


06647 


446663 


06650 


606654 


06651 


105412 


06652 


207425 


06653 


046663 


06654 


207426 


06655 


106562 


06656 


207427 


06657 


106562 


06660 


207403 


06661 


106562 


06662 


626642 


06663 


777777 


06664 


740040 


06665 


107026 


06666 


105412 


06667 


765636 


06670 


105225 


06671 


105345 


06672 


105345 


06673 


105354 


06674 


105354 


06675 


206022 


06676 


105314 


06677 


105345 


06700 


206021 


06701 


105314 


06702 


105345 


06703 


206023 


06704 


105314 


06705 


105412 



RUN 



BELL 



PROK 



OKCTR 



BADDIV 



HLT 

JMS LOOPS /LOOP 

JMS BEGIN /TEST 

JMS HLDOPL /HALT 

JMS L00P5 /LOOP 

JMS EXRAN /TEST 

JMS HLOOPL 

JMS PROK 

IS2 CTcMPTfii 

JMP RUN+i /LOOP 

JMP RUN+1 

/BELL AT ENO OF PaSS 

HLT 

LAC (207207 

JMS OTY 

JMP» BELL 



SET UP 

WITH CONSTANTS 

LOOP 

SET UP 

WITH RANDOMS 



/JMS HLOOPL 



/Pass COMPLETE COUNTER 



/RING BELL 



/PRINT 

HLT 

LAS 

AND 

SNA 

JMP» 

IS2 



"OK" AT END OF PaSS 



(004000 

PROK 

OKCTR 

.+4 



JMP 

TCR 

LAC (-30) 

OAC OKCTR 

LAC (317 

JMS OTy 

LAC (313 

JMS OTy 

LAC (240 

JMS OTy 

JMP« PROK 

777777 

/TEXT FOR RAD DIVS 

HLT 

JMS PRINT 

TIN 

LAW TEXTF 

TSR 

TYT 

TYT 

TSP 

TSP 

LAC RAN2 

JMS OPS 

TYT 

RANi 

OPS 



/PRINT? 
/DIVS FAILED 



LAC 
JMS 
TYT 
LAC 
JMS 
TCR 



/DIVISOR 



/C (AC) HIGH ORDER DIVIDEND 



RAN3 
OPS 



/TAR 
/C (MQ) 

/CR. LF 



LOW ORnER niVIOENO 
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06706 


105345 




06707 


105345 




06710 


765656 




06711 


105225 




06712 


105354 




06713 


105354 




06714 


207173 




06715 


105314 




06716 


105345 




06717 


105345 




06720 


207175 




06721 


I053I4 




06722 


105345 




06723 


206156 




06724 


740010 




06725 


750010 




06726 


105401 




06727 


765632 




06730 


105225 




06731 


105354 




06732 


105354 




06733 


207172 




06734 


105314 




06735 


105345 




06736 


105345 




06737 


207174 




06740 


I053I4 




06741 


105345 




06742 


206201 




06743 


740010 




06744 


750010 




06745 


105401 




06746 


105412 




06747 


626664 



TEXTF 



OUoTS 
OPc; 



REMS 
OPS 



TYT 

TYT 

LAW 

TSR 

TSP 

TSP 

lAC 

JM5 

TYT 

TYT 

LAC 

JMS 

TYT 

LAC hARDiV 

RAL 

CLA'RAL 

TDIGIT 

LAW TEXTD 

TSR 

TSP 

TSP 

LAC 

JMS 

TYT 

TYT 

LAC 

JMS 

TYT 

LAC DIVCOM 

RAL 

CLAjRAL 

TDIGIT 

TOR 

JMP» BAOOIV 

.EJECT 



QUOTH 
OPS 



REMH 
OPS 



/QUOTIENT 

/QUoTiEnT (SOFT) 

/TAB 

/REMAINDER (SOFT) 



/qET SFTW LINK 

/CLEAR AC AND PUT LINK IN ACl7 
/TYPE 



/QUOTIENT (HARD) 



/REMAINDER (HARD) 



/qEt hDw link 

/clear ac and put link in acl7 

/TYPE 
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06750 


740*440 




06751 


1070?6 




?'675? 


1515412 




06753 


765576 




H6754 


105225 




06755 


105412 




06756 


105345 




06757 


105345 




06760 


105345 




06761 


206022 




06762 


105314 




06763 


105345 




06764 


105354 




06765 


105345 




06766 


206023 




06767 


105314 




06770 


105412 




06771 


105345 




06772 


105345 




06773 


105345 




06774 


765615 




06775 


105225 




06776 


765666 




06777 


105225 




07000 


105345 




07001 


105345 




07002 


207161 




07003 


105314 




07004 


105345 




07005 


105345 




07006 


105345 




07007 


207164 




07010 


105314 




07011 


765632 




07012 


105225 




07013 


105345 




07014 


105345 




07015 


207160 




07016 


105314 




07017 


105345 




07020 


105345 




f7021 


105345 




07022 


207163 




07023 


105314 




07024 


105412 




07025 


626750 



BADMUL 



HLT 

JMS 

TIK< 

LAW 

TSW 

TCR 

TYT 

TYT 

TYT 

LAC 

JMS 

TYT 

TSP 

TYT 

LAC 

JMS 

TCR 

TYT 

TYT 

TYT 

LAW 

TSR 

LAW 

TSR 

TYT 

TYT 

LAC 

JMS 

TYT 

TYT 

TYT 

lac 

JMS 

LAW 

TSR 

TYT 

TYT 

LAC 

JMS 

TYT 

TYT 

TYT 

LAC 

JMS 

TCR 

JMP. 

.EJE 



XT FOR RAD MULS 
PRINT /PRINT? 

TEXTb /MULS FAILED, "ULTIPLIFR, MULTIPLICAND 



RAN2 
OPS 



RAN3 
OPS 



TEXTC 
TEXTF+10 



HPRODS 
OPS 



lprqos 

OPs 
TEXTD 



HPRODH 
OPS 



lprodh 

OPS 

BADMUL 
CT 



/MULTIPLIER 
/TAB 

/MULTIPLICAND 



/HIGH ORDER, LOW ORDER 

/SOFTWARE 

/HIGH ORDER PRODUCT SOFT 
/TAB 

/LOW ORDER PRODUCT (SqET) 



/HIGH ORDER PRODUCT (HARD) 



/TAB 

/LOW ORDER PRODUCT (HARD) 



/RETURN 
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07026 


74000a 




07(127 


750004 




07030 


507254 




07031 


741200 




07032 


627026 




07033 


207026 




07034 


347321 




07035 


047026 




07036 


227026 




07037 


047026 




07040 


106636 




07041 


627026 




07042 


740040 




07043 


107026 




07044 


765674 




07045 


105225 




07046 


627042 




07047 


105412 




07050 


765420 




07051 


105225 




07052 


147146 




07053 


606623 





/CHECK FOR PR 


PRINT 


NOP 




LAS 




AND (4PI0000 




SNA 




JMP, PRINT 




LAC PRINT 




TAD (777776 




DAC PRINT 




LAC« PRINT 




DAC PRINT 




JMS BELL 




JMPff PRINT 


/ 


/TEXT FOR BAD 


BALINK 


HLT 




JMS PRINT 




LAW TEXTG 




TSR 




JMP» BALINK 


/ 


/INITIAL TEXT 


FIRST 


TIN 




LAW TEXTA 




TSR 




DZM CTCMPT 




JMP RUN 




.EJECT 



PRINTOUT 



/PRINT 
/SUBTRACT 2 



/FOR BELL 



/EXIT NO PRINT 



LINK DURING DIVIDE 

/PRINT 
/BAD LINK 

/EXIT 
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/ROUTINES FOR SIMULATION OF TYPeOUT 
/SIMULATION! SETUP 



07054 


74?'340 


SETSIM 


HLT 




07055 


105412 




TIN 




07056 


76^^710 




LAW TEXTH 


/L C(AC) C(MQ) 


07057 


105225 




TSR 




07060 


627054 


/ 


JMP« SFTSIM 








/PRINT OUT MULTIPLY 


SIMULATION 


07061 


740040 


MULSIM 


HLT 




07062 


107131 




JMS ST4CLK 


/STORE AC AND LINK 


07063 


105412 




TIN 




07064 


207211 




LAC (0) 


/LINK=0 


07065 


105401 




TDIGIT 




07066 


105345 




TYT 




07067 


207170 




LAC MP5 


/(AC) 


07070 


105314 




JMS OPS 




07071 


105345 




TyT 




07072 


207165 




LAC MPi 


/(MQ) 


07073 


105314 




JMS OPS 




07074 


105345 




TYT 




07075 


207167 




LAC MP3 


/(SCA) 


07076 


507225 




AND (000077 




07077 


105333 




JMS TYPC03 




07100 


107135 




JMS ETACLK 


/RESTORE AC AND LINK 


07101 


627061 


/ 


JMP» MULSIM 








/PfflNTDUT FOR DIVIDE SIMULATION 


07102 


740040 


DIVSIM 


HLT 




07103 


107131 




JMS STaCLK 


/STORE AC AND LINK 


07104 


105412 




TIN 




07105 


207102 




LAC DiVSiM 




07106 


740100 




SMA 




07107 


607113 




JMP .+4 




07110 


207213 




LAC (1) 




07111 


105401 




TDIGIT 




07112 


607115 




JMP .+3 




07113 


207211 




LAC (0) 
.EJECT 





C(SCA) 
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07114 


105401 






07115 


105345 






07116 


207150 






07117 


105314 






07120 


105345 






07121 


207171 






07122 


105314 






07123 


105345 






07124 


207152 






07125 


507225 






07126 


105333 






07127 


107135 






07I30 


627102 






07I31 


740040 






07132 


047134 






07133 


627131 






07134 


000000 






07I35 


740040 






07136 


207131 






07137 


740010 






07140 


207134 






07141 


627135 
000000 






07205 


070707 


• L 




07206 


252525 


• L 




07207 


707070 


«L 




07210 


525252 


.L 




07211 


000000 


• L 




0721? 


777777 


«L 




07213 


000001 


»L 




07214 


577777 


• L 




07215 


000003 


• L 




07216 


477777 


• L 




07217 


000007 


• L 




07220 


437777 


*L 




07221 


000017 


• L 




07222 


417777 


»L 




07223 


000037 


«L 




07224 


407777 


»L 




07225 


000077 


• L 




07226 


403777 


«L 




07227 


000177 


»L 




07230 


401777 


»L 




07231 


000377 


»L 




07232 


400777 


»L 




07233 


000777 


«L 




07234 


400377 


• L 




07235 


001777 


»L 




07236 


400177 


»L 




07237 


003777 


»L 



TDIGIT 

TYT 

LAC DVn /(AC) 

JMS OPS 

TYT 

LAC OUO /(HQ) 

JMS OPS 

TyT 

LAC DVi /(SCA) 

AND (0PI0077 

JMS TYPCO3 

JMS FTaCLK /restore AC AND LINK 

JMP» OIVSIM 
/ 

/STORE AC AND LINK 
STaCLK XX /LINK STORED IN MSB 

DAC STaCLK+3 

JMP» STACLK 

/STORE AC 

/ 

/FETCH AC AND LINK 
FTACLK XX / 

LAC STaCLK /get stored LINK 

RAL /restore link 

LAC sTACLK+3 /rEstOrE AC 

JMP» FTACLK /EXIT 

/ 

.END 
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07?40 


400077 


ol 




07?41 


007777 


ol. 




i:"7?4? 


40ii1037 


oL 




PI '■ T 4 3 


.''17777 


oL 




07244 


400017 


• L 




07245 


037777 


<tL 




07246 


400007 


• L 




07247 


077777 


«L 




07?50 


400003 


• L 




07251 


177777 


• L 




07252 


400001 


oL 




07253 


377777 


• L 




07254 


400000 


.L 




07255 


052523 


• L 




07256 


052524 


• L 




07257 


125246 


• L 




07260 


125250 


• L 




07261 


252514 


.L 




07262 


252520 


«L 




07263 


525230 


• L 




07264 


125241 


«L 




07265 


252461 


• L 




07266 


252503 


»L 




07267 


525142 


• L 




07270 


125207 


»L 




07271 


252305 


«L 




07272 


252417 


• L 




07273 


524612 


»L 




07274 


125037 


«L 




07275 


251425 


«L 




07276 


252077 


• L 




07277 


523052 


«L 




07300 


124177 


• L 




07301 


246125 


• L 




07302 


250377 


• L 




07303 


514252 


• L 




07304 


120777 


• L 




07305 


230525 


• L 




07306 


241777 


• L 




07307 


461252 


»L 




07310 


103777 


»L 




07311 


142525 


• L 




07312 


207777 


• L 




07313 


305252 


• L 




07314 


612525 


«L 




07315 


037776 


• L 




07316 


425252 


• L 




07317 


000002 


• L 




07320 


777775 


»L 




07321 


777776 


• L 




07322 


000005 


• L 




07323 


777773 


«L 




07324 


777772 


«L 




07325 


777774 


»L 




07326 


000016 


eL 
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07327 


700000 


»L 




PI7330 


525251 


*L 




07331 


252526 


«L 




07332 


252524 


• L 




07333 


525253 


»L 




07334 


677777 


.L 




07335 


377771 


»L 




07336 


337777 


• L 




07337 


024613 


«L 




07340 


140000 


«L 




07341 


525005 


• L 




07342 


777252 


«L 




07343 


002651 


• L 




07344 


253252 


«L 




07345 


40'5476 


• L 




07346 


117162 


• L 




07347 


777700 


•L 




07350 


010000 


»L 




07351 


200000 


»L 




07352 


040000 


«L 




07353 


004000 


»L 




07354 


100000 


• L 




07355 


020000 


«L 




07356 


002000 


• L 




07357 


204376 


• L 




07360 


204376 


• L 




07361 


740040 


• L 




07362 


204376 


• L 




07363 


000100 


• L 




07364 


004776 


• L 




07365 


777755 


• L 




07366 


204376 


«L 




07367 


004776 


• L 




07370 


005022 


.L 




07371 


204776 


• L 




07372 


205012 


• L 




07373 


205017 


»L 




07374 


107061 


• L 




07375 


740000 


• L 




07376 


107102 


• L 




07377 


151200 


• L 




07400 


000040 


• L 




07401 


000200 


«L 




07402 


000300 


*L 




07403 


000240 


«L 




07404 


000260 


• L 




07405 


000215 


»L 




07406 


000212 


• L 




07407 


657101 


»L 




07410 


657122 


«L 




07411 


770000 


»L 




0741? 


003466 


«L 




07413 


153501 


»L 




07414 


210762 


• L 




07415 


006063 


• L 



TAGE 99 



EAE-II 



07416 
C17417 
0742f' 
^17421 
R742? 
(^■^423 
t^ 74J1 
1^742 .. 
07426 
07427 



006053 
644301 
644323 
?C5202 
?!05164 
360000 
207207 
777750 
000317 
000313 



«L 
»L 
»L 



NO ERROR LINES 



PAGE100 


EA( 


ABCD 


06570 


ADDCT 


0714? 


AOVP 


00203 


AvOBur 


05110 


ASTrIC 


07143 


RADDIV 


06664 


BADMuL 


06750 


RALINK 


07042 


BEGIN 


05024 


BELL 


06636 


RITCT 


07144 


CKFLA6 


04342 


CLBuf 


05052 


CLOF 


700004 


CLON 


700044 


CLSF 


700001 


CTADO 


07145 


CTCMPT 


07146 


CTRAN 


07147 


ncRY 


06464 


nCTER 


06244 


nECONT 


05360 


DISC 


05201 


DIVA 


03517 


DIVB 


03537 


nivc 


03557 


nivcoM 


06201 


OIVCT 


06221 


niVD 


03577 


nivE 


03617 


DIVF 


03637 


niVG 


03657 


DIVIDE 


06413 


DIVSHT 


06120 


nivsiM 


07102 


OIVTST 


03477 


DSCl 


02255 


OSC10 


02435 


DSCll 


02455 


DSC12 


02475 


0SC13 


02515 


nsci4 


02535 


nsci5 


02555 


nsci6 


02575 


nsci7 


02615 


0SC2 


02275 


nsc20 


02635 


nsc2i 


02655 


nsc3 


02315 


nsc4 


02335 


nsc5 


02355 


r)SC6 


02375 


nsc7 


02415 


i^FEED 


03755 


Bi 


06443 



pAGEiai 



EAE-II 



nsP2 
nsP3 

riSP4 

nSP5 
nSP6 

nVCMER 

nvn 
nvs 
nvi 
nV2 

nV2A 

nv3 
nV4 
nV5 

FAEOON 

ERFLAG 

FRRBIT 

FRWOR 

FXDIV 

EXMUL 

FXRAN 

FACT 

FIAC 

FILHLT 

FILZER 

FIMQ 

FIRST 

FTACLK 

HARDIV 

HARMUL 

HOIVID 

HDIVL 

HLOOPL 

HLOOPM 

HLOOPS 

HLTL 

HLTM 

HLTS 

HMPY 

HPRODH 

HPROnS 

lACW 

IDIVS 

lOR 

lORBUF 

KRB 

KSF 

LENGTH 

LOOKUP 

LOOPA 

LOOPL 

LOOPM 

LOOPS 

LOOP^ 

; OOP 4 



06465 
06433 
06523 

06 ;.^i 

06546 
06216 
07150 
07151 
071-5 i' 
06446 
06461 
06527 
06432 
06424 
07153 
07154 
07155 
04376 
06136 
05765 
05735 
05047 
07156 
04264 
04250 
07157 
07047 
07135 
06156 
06075 
06316 
06325 
04140 
04134 
04130 
04220 
04212 
04202 
06330 
07160 
07161 
07162 
657323 
04166 
05144 
700312 
700301 
05023 
05031 
04122 
04143 
04234 
04226 
04157 
04162 



PAGE102 EAfl-II 



L00P5 


04164 


LPROOH 


07163 


LPRODS 


07164 


MPSIGN 


06 400 


MP2 


06407 


MPl 


07165 


MP2 


07166 


MP3 


07167 


MP4 


06363 


MP5 


07170 


MSC 


05163 


MSPEED 


03701 


MULA 


03357 


MULB 


03377 


MULC 


03417 


MULCOM 


06105 


MULCT 


06256 


MULO 


03437 


MULE 


03457 


MULSHT 


05747 


MULSIM 


07061 


MULT 


06340 


MULTST 


03337 


NDIV 


00707 


NOIVS 


01020 


NEAB 


00360 


NEAE 


00246 


NFROIV 


01347 


NFROVS 


01457 


NIDIV 


01127 


NIOIVS 


01237 


NMUL 


00467 


NMULS 


00577 


OCTOUT 


06605 


OKCTR 


06663 


OPS 


005314 


OPT 


005314 


OTY 


06562 


OVRFLO 


06550 


PCF 


700202 


PRINT 


07026 


PROK 


06642 


PSA 


700204 


PSB 


700244 


PSF 


700201 


OHIB 


06475 


QUO 


07171 


QUOTH 


07172 


OUOTS 


07173 


RAN 


06007 


RANCON 


06051 


RANOEX 


06052 


RANTAD 


06041 


I^NTBL 


06053 


06021 



■PAGE103 


EAE-11 


RAN2 


06022 


RAN3 


^6023 


RBCW 


04363 


RCF 


7 P 1 C 2 


RDGEN 


06024 


REMH 


07174 


REMS 


07175 


RNO 


06020 


RR8 


700112 


RSA 


700104 


RSB 


700144 


RSF 


700101 


RUN 


06623 


RWRK 


06064 


SCAN 


04315 


SETBIT 


04301 


SETSIM 


07054 


SETUP 


04347 


SHCTl 


01571 


SHrTi0 


01760 


SHCTli 


02001 


SHCT12 


02022 


SHCT13 


02043 


SHCT14 


02064 


SHCT15 


02105 


SHCT16 


02126 


SHCT17 


02147 


SHCT2 


01612 


SHCT20 


02170 


SHCT21 


02211 


SHCT22 


02232 


SHCT3 


01633 


SHCT4 


01654 


SHCT5 


01675 


SHCT6 


01716 


SHCT7 


01737 


SIGNA 


03001 


SIGNB 


03025 


SIGNC 


03051 


SIGND 


03121 


SIGNE 


03145 


SIGNE 


03171 


SIGNG 


03241 


SIGNH 


03265 


SIGN! 


03311 


SOFOIV 


06170 


SOEMUL 


06065 


SPAC 


05354 


SPACE2 


05406 


SPMUnV 


04035 


STABUF 


05064 


STACLK 


07131 


STDIVS 


02755 


STEMA 


07176 


STFMB 


07177 



PAGE104 



EAE-II 



STFnVS 

STIDVS 

STMUL 

STMULS 

SVC9 

SVCRY 

SVC0 

SVCl 

SVClA 

SVC2 

SVC3 

SWIT6 

SWIT7 

TACW 

TADBUF 

TCP 

TCR 

TDIGIT 

TEH 

TEMYl 

TEXTA 

TEXTB 

TEXTC 

TEXTD 

TEXTE 

TEXTF 

TEXTG 

TEXTH 

TEXTI 

TEXTJ 

TIMTEX 

TIN 

TLS 

TSF 

TSP 

TSR 

TYCRLF 

TYPCHR 

TYPCON 

TYPC03 

TYPOCT 

TYPSAV 

TYPTSR 

TYPTYT 

TYT 

WORDA 

XBAO 



03215 
i?)3075 
0?677 
0P716 
06503 
07200 
06476 
06510 
06504 
06513 
06516 
04151 
04242 
07201 
05126 
700402 
105412 
105401 
07202 
07203 
05420 
05576 
05615 
05632 
05636 
05656 
05674 
05710 
05724 
05725 
06306 
105412 
700406 
700401 
105354 
105225 
05412 
05250 
05314 
05333 
05401 
05307 
05225 
05345 
105345 
04776 
07204 



^AGE107 



EAF-II 



I0R8UF 

MSC 

DISC 

TYPTSR 

TYPCHR 

TYPSAV 

OPS 

OPT 

TYPCON 

TYPC03 

TYPTYT 

SPAC 

DECONT 

TYPOCT 

SPACE2 

TYCRLF 

TEXTA 

TEXTB 

TEXTC 

TEXTD 

TEXTE 

TEXTF 

TEXTG 

TEXTH 

TEXTI 

TfXTJ 

FXRAN ■ 

MULSHT 

FXMUL 

RAN 

RNO 

RANl 

RAN2 

RAN3 

RDGEN 

RANTAO 

RANCON 

RANOEX 

RANTBL 

RWRK 

SOFMUL 

HARMUL 

MULCOM 

DIVSHT 

FXDIV 

HAROIV 

SOFOIV 

OIVCOM 

nVCMER 

DIVCT 

nCTER 

MULCT 

TIMTEX 

HDIVir 

HDIV! 



05144 
0'7l63 
052P)1 
05225 
05250 
05307 
005314 
005314 
05314 
05333 
05345 
05354 
05360 
05401 
05406 
05412 
05420 
05576 
05615 
05632 
05636 
05656 
05674 
05710 
05724 
05725 
05735 
05747 
05765 
06007 
06020 
06021 
06022 
06023 
06024 
06041 
06051 
06052 
06053 
06064 
06065 
06075 
06105 
06120 
06136 
06156 
06170 
06201 
06216 
06221 
06244 
06256 
06306 
06316 
06325 



PAGE108 



EAF-I I 



HMPY 


06330 


MULT 


06340 


MP4 


06363 


MPSIGN 


06400 


MP? 


06407 


niviOE 


06453 


nv'5 


06424 


nv4 


06432 


nspi 


06443 


nv? 


06446 


nSP3 


06453 


nvpA 


06461 


ncRY 


06464 


nSP2 


06465 


OHIB 


06475 


SVC0 


06476 


SVCB 


06503 


SVCiA 


06504 


SVCl 


06510 


SVC2 


06513 


SVC3 


06516 


nsP4 


06523 


0V3 


06527 


DSPS 


06531 


DSP6 


06546 


OVRFLO 


06550 


OTY 


06562 


ABCD 


06570 


nCToUT 


06605 


RUN 


06623 


e?ELL 


06636 


PROK 


06642 


OKCTR 


06663 


qaddiv 


06664 


badmul 


06750 


PRINT 


07026 


8ALINK 


07042 


FIRST 


07047 


SETSIM 


07054 


MULSIM 


07061 


DIVSIM 


07102 


STACLK 


07131 


FTACLK 


07135 


ADDCT 


07142 


ASTRIC 


07143 


RITCT 


07144 


CTADD 


07145 


CTCMPT 


07146 


CTRAN 


07147 


DVD 


07150 


DVS 


07151 


nvi 


07152 


FAEDON 


07153 


ej^AG 


07154 


^Bt 


07155 



'^AGE10'5 


EA 


riAC 


07156 


FIMQ 


f)71=>7 


HPROOH 


07160 


HPROnS 


07161 


lACW 


07162 


LPRODH 


07163 


LPROOS 


07164 


MPl 


07165 


MP2 


07166 


MP 3 


07167 


MP5 


07170 


QUO 


07171 


QUOTH 


07172 


QUOTS 


07173 


REMH 


07174 


REMS 


07175 


STtMA 


07176 


STFMB 


07177 


SVCRY 


07200 


TACW 


07201 


TEM 


07202 


TEMYl 


07203 


XBAD 


07204 


TSR 


10'5225 


TYT 


105345 


TSP 


105354 


TOIGtT 


105401 


TCR 


105412 


TIN 


105412 


IDIVS 


657323 


CLSF 


700001 


CLOF 


700004 


CLON 


700044 


RSF 


700101 


RCF 


700102 


RSA 


700104 


RRB 


700112 


RSR 


700144 


PSF 


700201 


PCF 


700202 


PSA 


700204 


PSR 


700244 


KSF 


700301 


KRR 


700312 


TSF 


700401 


TCF 


700402 


TLS 


700406 



